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Libri firmati JACKSON 


IL PRIMO LIBRO PER M24 

MS DOS e GW BASIC 

Rita Bonelli 

Il libro offre una panoramica rapida 
ma completa sul nuovo Personal 
computer M24, che segna in 
qualche modo il superamento 
dell’epoca PCOS/M20 e 
l’adeguamento dell’Olivetti agli 
standard internazionali nel campo 
del software. 

Il primo capitolo, dopo aver posto 
l’accento sul binomio calcolatore- 
pacchetti di programmi, che 
rappresenterà sempre di più la 
carta vincente nell’evoluzione del 
mercato, descrive la 
configurazione hardware del 
sistema M24, che fa da supporto a 
diversi sistemi operativi e diversi 
linguaggi. 

Segue un capitolo che illustra 
l’utilizzo della macchina nei diversi 
campi e le prove di alcuni 
pacchetti di software disponibili. 

Gli ultimi due capitoli descrivono 
uno dei sistemi operativi, lo MS- 
DOS, e uno dei linguaggi, il GW- 
BASIC, riportando alcuni esempi. 

Segue un glossario che fornisce in 
modo sintetico le nozioni di 
informatica di base necessarie per 
una buona leggibilità del testo. 
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Il Centro Commerciale Americano - sempre attento a recepire e a 
presentare in anticipo le più recenti novità dell’alta tecnologia - ospiterà 
quest'anno presso il padiglione espositivo di Via Gattamelata 5, Milano, 
la prima edizione della mostra DIDACTICS USA, 

La manifestazione - riservata a prodotti americani - intende offrire una 
panoramica esauriente dei più avanzati strumenti didattici oggi disponibili: 
dai sistemi audiovisivi (hardware e software) ai giochi educativi, dagli 
impianti per laboratorio e officina ai libri di testo e didattica. 

In concomitanza con la Mostra ed in collaborazione con l'ANCIFAP 
(Associazione Nazionale Centri IRI - Formazione e Addestramento 
Professionale), si terrà, nei giorni 8 e 9 NOVEMBRE, un Seminario dal 
titolo: “NUOVE TECNOLOGIE NELLA DIDATTICA: 

UN PONTE TRA SCUOLA E INDUSTRIA”, così articolato: 


I giorno - La Didattica negli Stati Uniti e in Italia: Esperienze a Confronto 
- Seguirà una Tavola Rotonda - con la partecipazione di noti esperti del 
mondo del lavoro e della scuola. 



7/10 NOVEMBRE 1984 


Per ulteriori informazioni, Tel. 02-469.64.51/2/3 
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CENTRO COMMERCIALE 
AMERICANO 



Via Gattamelata 5 - 20149 Milano 
Tel. 02/4696451 
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Standard o non standard? 


di Riccardo Paolillo 


Uno dei fatti nuovi e più attesi di questa stagione, 
per quanto riguarda il mondo degli home computer, 
è sicuramente rappresentato dall’arrivo sul mercato 
dei nuovi calcolatori funzionanti secondo lo stan¬ 
dard MSX. 

MSX (Microsoft EXtended BASIC) è una proposta 
della famosissima e omonima software house ameri¬ 
cana, volta a portare un po’ d’ordine nel confusiona¬ 
rio mondo degli home computer, ed è il primo tenta¬ 
tivo serio in una direzione auspicata da molti. 
L'idea di base è semplice: è stata indicata una archi¬ 
tettura hardware (microprocessore Z80, processore 
di suono Gl, processore video TI) e software (inter¬ 
prete MSX-BASIC da 24 Kbyte) a cui i costruttori 
aderenti devono attenersi. Un sistema minimo MSX 
deve anche soddisfare altri requisiti: almeno 24 
Kbyte di memoria RAM, una tastiera alfanumerica, 
un connettore per cartuccia, uscita per 2 joystick e 
interfaccia per registratore a cassetta. 

Per quanto riguarda la realizzazione fisica del calco¬ 
latore ogni costruttore può operare come preferisce 
e puntare a segmenti diversi di mercato, in funzione 
delle scelte fatte. 

Questa interessante iniziativa ha avuto un certo 
successo tra i costruttori: le adesioni più massicce 
sono venute dal Giappone, dove tutti i più noti fab¬ 
bricanti hanno deciso di adottare lo standard MSX. 
Per quanto riguarda gli Stati Uniti e l’Europa si 
segnalano, per ora, soltanto Spcctravideo e Philips. 
In totale, comunque, sono attualmente più di 20 i 
costruttori che nel mondo adottano lo standard 
MSX. 

Ritengo che l’importanza di iniziative di questo tipo 
vada sottolineata c sia comunque rilevante. Dal pun¬ 
to di vista dell’utilizzatore i benefici sono senz’altro 
evidenti: non si dovrà più impazzire per scoprire 
come ottenere determinate funzioni grafiche a base di 
PEEK e POKE o cercare di tradurre un programma 
scritto in un altio dialetto BASIC per adattarlo alla 
propria macchina. 

L’idea è che esista un unico linguaggio valido per 
tutte le macchine e che addirittura cartucce di espan¬ 
sione, periferiche siano completamente intercambia¬ 


bili. 

A questo punto anche la ricerca di nuovo software 
sulle riviste è destinata a diventare più semplice e 
proficua: non più 2 o 3 programmi adatti solo a una 
macchina, ma possibilità di utilizzo di tutti i pro¬ 
grammi pubblicati. 

Ma forse i vantaggi maggiori che si avranno, se que¬ 
sto standard si imporrà sul mercato, sono altri. In 
una situazione in cui tutti i costruttori offrono un 
prodotto analogo dal punto di vista delle prestazioni, 
e probabilmente dei prezzi, assumerà un ruolo molto 
importante, se non decisivo, il grado di assistenza e 
servizio che verrà assicurato. 

Sicuramente venderà di più chi sarà in grado di assi¬ 
stere meglio l'acquirente, sia prima che dopo la ven¬ 
dita. 

In questo modo si arriverà quasi automaticamente 
alla completa maturazione del mercato degli home 
computer. 

Ci sarà senza dubbio anche una sorta di selezione 
naturale: chi non sarà in grado di adeguarsi a questo 
nuovo modo di vendere e assistere l’utente sarà inevi¬ 
tabilmente tagliato fuori. 

E tutti gli altri personal che ora vanno per la mag¬ 
giore e non funzionano certo sotto MSX? Niente 
paura. Anche loro costituiscono in qualche modo 
degli standard di fatto, garantiti dall’elevatissima dif¬ 
fusione. 

Esperienze precedenti confermano che anche gli 
standard accuratamente studiati, come MSX, sono 
più difficili da introdurre e imporre di altri non ‘‘uffi¬ 
ciali”, ma certificati sul campo dal loro enorme suc¬ 
cessi « ■ 
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Il 64 parlante 


Posseggo da alcuni mesi un Com¬ 
modore 64 e volevo chiedervi qual¬ 
che informazione. Come sapete il C 
64 è ottimo come sintetizzatore so¬ 
noro, poiché ha il SID: è possibile 
realizzare un “Loquax” (come avete 
fatto per lo Spectrum sul n. 19 
Giugno-Luglio) che sia in grado di 
riprodurre la voce umana e quindi di 
parlare? 


Fabrizio Genova 
Carini (PA) 


Realizzare una versione di Loquax 
anche per C 64 è senz’altro possibile e 
quando riusciremo a reperire un pro¬ 
gramma altrettanto valido, sicura¬ 
mente lo pubblicheremo. 

Intanto le segnaliamo che esiste in 
commercio, probabilmente anche in 


Italia, un ottimo software per la sinte¬ 
si vocale: si tratta del Sam Reciter ed 
è veramente interessante. Tra l’altro 
viene definita una nuova istruzione 
BASIC, la SA Y, che permette di far 
“parlare” il Commodore direttamen¬ 
te da programma. 


A proposito di “Piccoli Annunci” 

Con alcuni programmatori ed uti¬ 
lizzatori di computer VIC 20 sono 
riuscito a formare un piccolo Club 
che, a poco a poco, si sta allargando 
con contatti in molte regioni d’Ita¬ 
lia. 

Ma non è di questo che vorrei parla¬ 
re, ma di un comportamento scor¬ 
retto (definirlo così è anche troppo 
poco) da parte di un “signore” di 
Viareggio. 


Ma veniamo ai fatti: 
in data 26/3/1984 rispondevo ad 
una inserzione pubblicata su Bit. In 
data 18/4/1984 mi arrivava la ri¬ 
chiesta di scambio di una trentina di 
programmi da parte di un lettore di 
Viareggio. Il tempo di preparare i 
programmi richiesti e il 24/4/1984 
inviavo, tramite raccomandata, una 
cassetta con 35 programmi, richie¬ 
dendone in cambio 29 scelti dalla 
sua lista. 

In data 21/5/1984, non vedendo ar¬ 
rivare nulla, ho deciso di riscrivere 
una lettera di sollecito, ma invano. 
Ormai ho messo il cuore in pace per 
quanto riguarda quei programmi, 
ma ho deciso di rendere la faccenda 
di dominio pubblico, in quanto la 
regola principale del nostro Club è 
“massima serietà, disponibilità e 
tempestività”. 

Sto cercando, quindi, di mettere in 
guardia i colleghi che effettuano 
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scambi di software. 

Attenzione, dunque, ai tipi che, ap¬ 
profittando della fiducia, ne appro¬ 
fittano indebitamente. 

Francesco De Colle 
Civitavecchia (Roma) 


Se i fatti sono come da tei riportati 
(e non abbiamo, ovviamente, alcun 
motivo per metterlo in dubbio), non 
possiamo che condividere le sue con¬ 
siderazioni. 

Noi di Personal Software, come d'al¬ 
tra parte i colleghi di Bit, abbiamo 
voluto riservare uno spazio gratuito 
sulla rivista, proprio per favorire de¬ 
gli interscambi personali a fini non 
commerciali. 

Naturalmente, non possiamo eserci¬ 
tare alcun controllo sulla veridicità e 
serietà degli annunci pubblicati, ma 
ultimamente abbiamo modificato un 
po' le regole per la pubblicazione, an¬ 
che a causa de! numero elevatissimo 
di richieste. 

Innanzitutto vengono pubblicati solo 
gli annunci effettivamente scritti sul 
coupon pubblicato in fondo alla rivi¬ 
sta. 

Non valgono neanche le fotocopie, in 
guanto abbiamo verificato che alcuni 
lettori ci spedivano parecchi annunci 
ogni mese. 

Inoltre non accettiamo annunci a ca¬ 
rattere speculativo, riguardanti la 
vendita di programmi commerciali 
(normalmente copiati illegalmente). 
In questo modo speriamo di migliora¬ 
re la veridicità degli annunci pubbli¬ 
cati, nell’interesse di tutti i lettori, e 
di non contribuire a favorire un feno¬ 
meno, la diffusione illegale del soft¬ 
ware, a cui siamo nettamente contra¬ 
ri. 


Music Editor 

Sono il possessore di un CBM 64 e 
mi affascinano soprattutto le sue 
qualità di sintesi musicale. 

Nel numero di Marzo di Personal 


Software è stato pubblicato il pro¬ 
gramma “Music Editor” che ho su¬ 
bito provveduto a digitare. 
Purtroppo succede che, subito dopo 
aver dato il RUN e il successivo 
blank dello schermo, lo schermo ri¬ 
mane in questa posizione per una 
decina di secondi e poi ritorna alle 
condizioni normali di quando si dà 
il comando RUN/STOP - RESTO- 
RE e compare quindi la scritta RE¬ 
ADY. 

Ho controllato il programma varie 
volte, soprattutto per la parte che 
riguarda i DATA, ma il risultato è 
stato che non c’era nessun errore: è 
possibile che ci sia un errore nel li¬ 
stato pubblicato? 

Raffaele Balzano 
Pontedecimo (GE) 

Il signor Balzano è uno dei tanti che 
ci ha scritto o telefonato per avvertir¬ 
ci che il Music Editor non voleva sa¬ 
perne di funzionare. 

Quando si ricevono molte segnalazio¬ 
ni di malfunzionamento per lo stesso 
programma, generalmente significa 
che l’errore è veramente esistente. E, 
invece, questa volta no! 

Dopo un'attenta verifica del pro¬ 
gramma abbiamo scoperto la causa 
dei problemi di molti lettori: Music 
Editor, per funzionare, necessita an¬ 
che delle prime IO istruzioni REM, da 
0 a 9, quelle, per intenderci, che spes¬ 
so vengono saltate in fase di copiatu¬ 
ra. 

Confessiamo che all’epoca della pub¬ 
blicazione non eravamo a conoscenza 
di questo particolare, altrimenti lo 
avremmo scritto nella didascalia del 
listato. 

In generate, comunque, è sempre bene 
copiare i listati esattamente come 
vengono pubblicati, proprio per evita¬ 
re inconvenienti di questo tipo. 
Infine, ci sembra giusto segnalare co¬ 
me la piccolissima civetteria di Mirko 
Gremes, autore di Music Editor, che 
obbliga a ricopiare anche Usuo nome, 
sia ampiamente ripagata dalla quali¬ 
tà professionale dei suo programma. 


ualcosa 

■ ■ X 

i piu 

può trasformare il suo hobby 
in qualcosa di più utile/ 
o ampliare i suoi interessi 
professionali / può ricavare 
un guadagno dal mondo del 
computer che già tanto la 
coinvolge, dedicandoci 
una parte del suo tempo, 
assistito da professionisti/ 
non le promettiamo miracoli, 
l’interesse che ne ricaverà sarà 
ovviamente funzione 
dell'impegno che potrà o vorrà 
dedicare alla cosa/ 
non ci sono limiti, questo è 
l’interessante, da poche ore 
settimanali, a quanto lei vorrà, 
e senza che ciò le costi una lira/ 
se le interessa, ci telefoni: 
saremo estremamente chiari 
e precisi/ 

faremo anche in modo 
di incontrarci nella ns/ sede 
o nella filiale a lei più vicina/ 
ci chiami da lunedi a venerdì 
tra le 16 e le 19 


v.m.m. s.r.l. 

20144 milano/via bergognone, 7 
tei. (02) 4981041 (r a.) 
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Radio e computer 


Dopo i primi timidi esperimenti, co¬ 
minciati in sordina, molte emittenti 
radiofoniche e televisive hanno deci¬ 
so di dedicare ampio spazio all’in¬ 
formatica, cedendo, ove possibile, 
alla tentazione di divulgare pro¬ 
grammi via etere. La RAI, su Radio 
3, ha tentato con Radiotext un espe¬ 
rimento di trasmissione rivolta al¬ 
l’informatica domestica, con la tra¬ 
dizionale parte di notizie e inchieste 
integrata da un tentativo di emettere 
impulsi per la distribuzione di soft¬ 
ware e dati per microcomputer. Le 
norme di ricezione prevedevano il 
collegamento dell’uscita cuffia della 
radio con l’input della memoria di 
massa per il computer: sul video del¬ 
l’unità apparivano così delle infor¬ 
mazioni relative agli argomenti trat¬ 
tati; il salvataggio su cassetta o disco 
poteva poi essere effettuato in un 
secondo momento oppure durante 
la stessa trasmissione, se si dispone¬ 
va di un radioregistratore. Questa 
possibilità è la più interessante, an¬ 
che se forse meno affidabile, perché 
consente di mantenere anche le parti 
di parlato, di commento ai dati e ai 
programmi. L’emittenza privata 
propone dal canto suo una serie di 
iniziative. Ne citiamo due: a Torre 
del Greco Radio Elle 4 trasmette 
“Bugs on thè Radio”, programma 
per gli utenti di micro e personal 
computer, a base di notizie, curiosi¬ 
tà e software, in diretta per il Sin¬ 
clair ZX Spectrum e per il Commo¬ 
dore 64. La ricezione, per la Campa¬ 
nia e zone limitrofe, è sui 96.600 
Mhz in FM, l’appuntamento alle 
21,30 del lunedì. Ad Arezzo, invece, 
Radio OK (94.3 Mhz in FM) tra¬ 


smetterà una rubrica di cultura in¬ 
formatica dal titolo “Computer 
OK”. Al momento di andare in 
macchina non sappiamo però gli 
orari di emissione di questa trasmis¬ 
sione, che prevede l’erogazione di 
software per Spectrum, VIC 20 e 
Commodore 64. 

Sinclair Club Arezzo 
Via Aretina Nord, 2 
52040 Pieve al Toppo (AR) 


Per “Bugs on thè Radio”: 

Radio L4 
Via Salerno, 8 

80059 Torre del Greco - Leopardi 
(NA) 

Tel. 081-8833663 


Software applicativo 
per VIC 20 

Dopo un incerto avvio fioccano le 
proposte di software applicativo per 
gli home computer della Commodo¬ 
re. È la stessa casa costruttrice che 
annuncia la disponibilità per il mer¬ 
cato italiano di VIC Writer, un pro¬ 
gramma per il word processing casa¬ 
lingo, e di Home Babysitter, un gio¬ 
co educativo per i bambini delle pri¬ 
me classi elementari. VIC Writer ri¬ 
chiede un’espansione da 8 o 16 
Kbyte ed è disponibile nelle due ver¬ 
sioni su disco e su nastro, per per¬ 
mettere una gestione dei testi anche 
a chi possiede la configurazione mi¬ 
nore. Il manuale che accompagna il 
programma dovrebbe consentire 
anche al neofita un approccio gra¬ 
duale all’uso di uno strumento evo¬ 
luto come il word processor, per¬ 
mettendogli di lavorare autonoma¬ 



mente dopo averne lette solo poche 
pagine. Per poter scrivere i propri 
testi è necessario, ovviamente, dis¬ 
porre di stampante o conoscere 
qualcuno che sia disposto ad impe¬ 
gnare temporaneamente il suo siste¬ 
ma completo per permettere le 
stampe. VIC Writer è in vendita a 
75.000 lire più IVA. Home Babysit¬ 
ter è invece distribuito su cartuccia e 
non richiede nulla di più della confi¬ 
gurazione base del VIC 20. Median¬ 
te un menu a colori, animato e ac¬ 
compagnato da vari suoni, è possi¬ 
bile scegliere se giocare con l’alfabe¬ 
to, disegnare una faccia o sbizzarrir¬ 
si con i numeri. Questo programma 
può così rappresentare il primo in¬ 
contro ravvicinato per il bambino 
(dai quattro ai sette anni) con il 
mondo dell’informatica, permetten¬ 
dogli di vedere tastiera e video non 
come barriere, ma quali strumenti 
che espandono le sue capacità crea¬ 
tive. Home Babysitter è in vendita a 
41.000 lire più IVA. 

Opinione, 

Via G. G. Mora, 22 
20123 Milano 
Tel. 02-8373081 
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ADAM, l’evoluzione possibile 


ADAM, la proposta CBS per far 
crescere i propri sistemi ColecoVi- 
sion verso l’home computing, si pre¬ 
senta con tutte le carte in regola per 
ben figurare nell’arena di questa 
classe di elaboratori. La versione 
presentata all’inizio dell’estate a Pa¬ 
rigi, basata su uno Z80 coadiuvato 
da quattro MC 6801, comprendeva 



infatti una tastiera professionale da 
75 tasti, un’unità centrale con me¬ 
moria di 80 Kbyte, espandibili a 144, 
una stampante a margherita (10,5 
caratteri al secondo) e la consolle di 
controllo per i giochi in alta risolu¬ 
zione CBS ColecoVision. Nella pro¬ 
posta erano compresi anche diversi 



package di software applicativo che, 
come il word processor, possono 
sfruttare appieno le caratteristiche 
di ADAM. Tra le promesse per il 
futuro: disponibilità del modem, 


estensione a 80 colonne, unità di let¬ 
tura per dischetti da 5 pollici e 1/4, 
compatibilità software coll’IBM 
PC. Per ora: un BASIC compatibile 
Applesoft, tre manuali, molti giochi 
e ... CP/M! 

CBS Electronics 

Boile Postale 50016 

Z.I. Paris Nord 11 

95945 Roissy CH. D. G. Cedex 

France 


Supermon Programmer per 
espandere il VIC 20 


Al prezzo di poco meno di 150.000 
lire, IVA esclusa, è possibile acqui¬ 
stare una serie di strumenti che fan¬ 
no crescere le capacità del VIC 20. 
Col nome di Supermon Program¬ 
mer la MIT’S di Recanati commer¬ 
cializza un hardware che amplia di 2 
Kbyte la memoria utente del VIC 
20, comprendendo inoltre due zoc¬ 
coli per EPROM, per accrescere le 
capacità firmware del piccolo della 
Commodore. Il software a disposi¬ 
zione consente di trasferire dati da e 
verso la EPROM (di tipo 2732) in 
lavorazione, di trattare dati in me¬ 
moria, di trasferire informazioni nei 
due sensi con la memoria di massa e 
di compilare, disassemblare e verifi¬ 
care i programmi scritti. La promes¬ 
sa implicita è di riuscire con meno 
dolori di capo a progettare video 
giochi, interfacce specializzate o 
controller per I/O in tempo reale. 


MIT’S 

Via Vinciguerra. 38 
62019 Recanati (MC) 


Piccolo Gigante ... e il CP/M 
è alla portata di tutti 


La Data B. di Milano annuncia la 
disponibilità di un sistema per utiliz¬ 
zare il CP/M con qualsiasi home 
computer dotato di interfaccia RS- 
232. Il sistema PGZX consente in¬ 
fatti di dotare un’apparecchiatura 
domestica, anche in configurazione 
minima, del sistema operativo 
CP/M. Il sistema è a forma di scato¬ 
la e prevede un collegamento via in¬ 
terfaccia seriale RS-232, o equiva¬ 
lente, per espandere la potenza ela- 



borativa del proprio home compu¬ 
ter con 64 Kbyte di memoria aggiun¬ 
tiva ed un lettore di floppy da 5 pol¬ 
lici e 1/4, CP/M compatibile. 
All’interno di detta scatola è previ¬ 
sta l’interfaccia SASI, per collegare 
Winchester da 10 o 20 Mbyte, oltre 
ad eventuali floppy aggiuntivi. Sono 
disponibili anche due interfacce RS- 
232 per il collegamento di stampanti 
o plotter secondo questo standard. 
A corredo del PGZX sono forniti il 
CP/M 2.2 con programmi di utilità 
e una serie di package dimostrativi. 

Data B. 

Via G.B. Pirelli, 26 
20124 Milano 
Tel. 02-437823 
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ERSONAL NEWS 



I (pochi) fortunati che hanno parte¬ 
cipato al viaggio in Brasile della 
“Eugenio Costa”, ammiraglia delle 
navi delPomonima compagnia di ar¬ 
matori, non avranno avuto di che 
lamentarsi circa le modalità per am¬ 
mazzare il tempo nei lunghi tratti di 
navigazione oceanica. Grazie infatti 
ad un accordo tra l’Armatori Costa 
e la Melchioni Computertime gli 
eletti passeggeri hanno potuto ci¬ 
mentarsi con i personal e gli home 
computer della Sharp, seguendo 
(piove sempre sul bagnato!) anche 
corsi gratuiti su vari argomenti rela¬ 
tivi ad applicazioni nell’ambito fa¬ 
miliare, hobbystico e gestionale. 
Piatto forte della proposta il presti¬ 
gioso PC-5000 della casa giappone¬ 
se. 


Melchioni Computertime 
Viale Europa, 49 
20093 Cotogno Monzese (MI) 
Tel. 02-2535035 


È arrivato il portatile 
COMPAQ 


II personal computer della COM¬ 
PAQ, molto diffuso nel mercato 
d’oltreoceano, è disponibile anche 
in Italia per la distribuzione della 
Winline di San Giuliano Milanese. 
Costruito per durare a lungo, il por¬ 
tatile COMPAQ è realizzato con 
una particolare cura: una struttura 
in alluminio circonda tutte le parti 
interne, per ridurre al minimo i trau¬ 
matici impatti derivanti da urti e vi¬ 
brazioni, mentre il contenitore rigi¬ 
do esterno è realizzato con plastica 
di policarbonato resistente agli urti, 
dello stesso tipo di quella utilizzata 
per i cristalli a prova di proiettile. I 


tre modelli della gamma sono com¬ 
patti (50 per 21 per 41 cm) ed hanno 
molte caratteristiche comuni. Si ba¬ 
sano tutti su una CPU Intel 8088, 
hanno un video monocromatico da 
25 righe di 80 colonne, l’interfaccia 
grafica per l’alta risoluzione, l’uscita 
parallela per stampante, l’interfac¬ 
cia per un video a colori esterno, la 
tastiera compatibile IBM da 83 tasti 
base (10 numerici e 10 funzione), 
128 Kbyte di memoria espandibili a 
640, 3 connettori completi per mo¬ 
duli opzionali, il sistema operativo 
MS-DOS ed il BASIC. Il modello 
base è il COMPAQ Portable Single 
Disk; monta un drive da 320 Kbyte 
per floppy da 5 pollici e 1/4 e costa 
4.300.000 (senza IVA). Il modello 
Dual Disk ha due unità da 320 
Kbyte e 256 Kbyte di memoria. Il 
COMPAQ PLUS, invece, affianca 
ad un’unità a floppy disk da 320 
Kbyte un Winchester da 10 Mbyte. 
Tutti i modelli consentono di legge¬ 
re dati prodotti sull’IBM PC e di 
utilizzare tutto il software sviluppa¬ 
to per quest’ultimo, senza effettuare 
alcuna modifica. 

Winline 

Via Tolstoi, 86 

San Giuliano Milanese (MI) 

Tel. 02-9847616 


Passa di mano l’Atari 


La Warner Communication ha an¬ 
nunciato di aver ceduto i settori ho¬ 
me computer e videogiochi della 
consociata Atari ad una nuova so¬ 
cietà. Capofila di questa è Jack Tra¬ 
mici, già fondatore della Commo¬ 
dore, fuoriuscito dalla medesima 
per divergenze di vedute con il resto 
del management. Alla Warner ri¬ 
mangono i settori giochi a gettone e 
Ataritel, mentre poco si sa circa le 
intenzioni della nuova società di 
Tramiel. 




Il piccolo Spectrum 
al grande giro 


In occasione dell’ultimo Giro cicli¬ 
stico d’Italia, la RAI e la Sinclair 
Computer hanno collaborato per 
utilizzare lo Spectrum a supporto 
statistico-informativo della cronaca 



sportiva. Durante le trasmissioni 
dell’arrivo di tappa i dati relativi alla 
classifica generale, alle schede ana¬ 
grafiche dei singoli atleti ed al Gran 
Premio della montagna erano ripor¬ 



tati con l’ausilio di uno Spectrum. 
Lo stesso computer forniva il pro¬ 
gramma dettagliato della tappa suc¬ 
cessiva e le curiosità statistiche for¬ 
nite dalla Federazione Ciclistica Ita¬ 
liana. 


Rebit Computer 
Viale Matteotti, 66 
20092 Cinisello B. (MI) 
Tel. 02-6181801 
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è in 
edicola 
il nuovo 
numero 



e BITEST: 

DECISION MATE V 


• SOFTEST: 

CFS SCHEDARIO 


• ATARI800X1 


• ALPHACOM 32 


e LETTERE IN DISORDINE: 
UN GIOCO PER VIC 


e TEACHER MACHINE 
CON C 64 


CON INSERTO: 

SUPER BIT RISERVATO PERSONAL 



UNA PUBBLICAZIONE DEL GRUPPO EDITORIALE JACKSON 












luri-calc 



Sette routine 
matematiche 
per ZX Spectrum 

di Stefano Cerniti 

P luri-calc permette di ese¬ 
guire automaticamente 
sette tra le più comuni ope¬ 
razioni matematiche non diretta- 
mente implementate sul computer. 
La ricerca della frazione generatrice 
di un numero decimale illimitato pe¬ 
riodico, la semplificazione di una 
frazione, la divisione con un numero 
infinito di decimali e la scomposi¬ 
zione in fattori primi di un numero 
intero sono solo alcune delle opera¬ 
zioni che Pluri-calc vi permetterà di 
... “pluri-calcolare”! 


Memorizzazione di Pluri-calc 

Il programma del listato 1, così 
com’è, gira su qualsiasi Spectrum 
con 48 Kbyte di memoria RAM. 
Dopo averlo digitato interamente, è 
necessario registrarlo su nastro con: 
SAVE “Pluri-calc” LINE 9910 
(+ ENTER) 

In questo modo, caricandolo, il pro¬ 
gramma partirà automaticamente 
definendo i caratteri grafici una vol¬ 
ta soltanto. 

E tuttavia possibile far girare Pluri- 
calc anche su uno Spectrum con soli 
16 Kbyte di memoria RAM. 

Per fare ciò occorre innanzitutto di¬ 
gitare il listato 1 escludendo: 

• tutte le REM; 

• tutte le linee dalla 9912 alla 9924 
e aggiungendo la linea: 

9910 LOAD “ ” CODE USER “a” 
Così facendo il programma si alleg¬ 
gerisce e viene privato della routine 


necessaria per la definizione dei no¬ 
ve caratteri grafici utilizzati dal sot¬ 
toprogramma “Scomposizioni”. 

A questo punto si può eseguire: 

SAVE “Pluri-calc” LINE 9910 
(+ ENTER) 

e dopo aver registrato il program¬ 
ma, è necessario avere subito dopo il 
programma centrale, i caratteri defi¬ 
niti come un file di byte. 

Questo compito io assolve il pro¬ 
gramma del listato 2, il quale defini¬ 
sce i caratteri, li salva su nastro e 
verifica anche la bontà della regi¬ 
strazione. 

Dopo aver prodotto il file con i ca¬ 
ratteri in coda a Pluri-calc, il pro¬ 
gramma del listato 2 non servirà più, 
e potrà anche essere cancellato. 

Alla fine del suo caricamento, 
PI uri-cal richiamerà automatica- 
mente i settantadue byte che defini¬ 
scono i caratteri dalla “A” alla “I” 
in modo “graphic”. 


Listato 1. Questa è la versione di Pluri-calc per lo ZX 
Spectrum 48 Kbyte. 


0>REM ZX-Spectrum 48K 

1 REM by 5. Ce rutti 

100 REM _ 

110 REM I I 

120 REM I PLURI-CRLC I 

130 REM I I 

14-0 REM l by Stefano Ce rutti l 

150 REM I I 

160 REM I_I 

170 BORDER 0 
180 PRPER 0 
190 INK 7 

200 DIM d(6) 

210 DIM £ $ 1 .192 

220 LET x$ = "h Invai id argument, 

0 : 1 " 

230 LET y$="6 Number too big, 0:1" 
240 LET n$="99999999" 

255 CLS 

260 PRINT RT 0,0;"C Pturi-cale 

by S. Cerutti ] " 

261 POR f=l TO 30 

262 PRINT RT 1,f;" ": PGKE f+16 
672,255 

263 NEXT f 

264 PRINT RT 1,31;" ” 

265 RE3T0RE 

270 FOR f =1 TO 6 
280 RERD t$ 

290 PRINT RT f*2,0J fJ M )";t*;TfiB 


Seguito listato /. 

31;" " 

291 PRINT TRB 31;" " 

300 NEXT f 

301 RERD t$ 

305 PRINT RT 14,0;7;")";t$;"_ 

330 PRINT «i;"Ready." 

340 LET i$ = INKEY $ 

350 IF i$<"l" OR i$ > "7" OR i$ = " 
" THEN 00 TO 340 
360 PRINT RT URL i$*2,0, FLRSH 
1, i $ 

370 BEEP .5,30 

380 PRINT RT 16,0;S$ 

390 00 SUB URL i$*200+200 
395 00 TO 260 

400 PRINT RT 16,0;"Ri corda che 
il radicando deve essere un nu 

mero assoluto compreso tra 

0 e 10000 Miliardi.Se questo e' 
eccessivamente alto, la pre 

cisione dei decimali diminuisce. 

410 INPUT "Radicando = “;rad 
420 IF rad < = le-8 OR rad >le 13 Th 
EN PRINT Ol; (x$ RND (rad < =le-8) ) 
+ (y $ RND (rad >le 13)) : BEEP .5,22 
: 00 TO 410 

425 PRINT RT I6,0;s$;RT 21,0;"0 
uante cifre decimali vuoi ?" 

430 INPUT "(1/30) ";d 

440 IF dii OR d >30 THEN 00 TO 4 
30 

450 LET d =INT (d + .5i _ 
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480 DRAU 5,0 

490 DRAU 4,-8 

500 DRAU 6,12 

505 LET g=LEN STR* rad 

510 DRAU 8*g , G 

520 PRINT fiT 19,3;rad;"s"; 

530 iSO SUB 2000 
540 RETURN 

600 INPUT "Quanti numeri ? (2/6 
) " ; n 

610 IF n <2 OR n>6 THEN GO TO 60 

0 

620 LET n=INT in+.5) 

630 FOR fsl TO n 

640 INPUT "Numero ";(f);" = ";d 
( f ) 

650 IF d ( f ) < > INT din OR NOT d ( 
n THEN PRINT 01;X $ : BEEP .5,22: 
GO TO 640 
660 NEXT f 
670 LET nl=d (1) 

680 FOR f =2 TO n 
690 LET n2=d(f) 

700 GO SUB 3000 
710 LET n 1 =m •:d 
720 NEXT f 
730 FOR f=l TO r. 

740 PRINT AT 15+f,0;d(M 
750 NEXT f 

760 PRINT RT 20,14; FLASH i;RBS 
ITi Cd ; RT 18,16; "H . C ■ D . " 


0 

820 LET n = INT (ri+ .5) 

330 FOR f =1 TO n 

840 INPUT "Numero "; ( n;" = ";d 
( f ) 

850 IF d ( n < > INT din OR NOT d ( 
n THEN PRINT 81;x*: BEEP .5,22: 
GO TO 340 
360 NEXT f 
870 LET dl*d (1) 

880 FOR f =2 TO n 

390 LET d2=d(fj 

900 GO SUB 4000 

910 LET d 1 =m C m 

920 NEXT f 

930 FOR f =1 TO n 

940 PRINT RT 15+f,0;d(f) 

950 NEXT f 

960 PRINT RT 20,14; FLASH i;ABS 
m c m;AT 18,16;"m.c.m." 

970 RETURN 

1000 INPUT "Numeratore = ";num 
1010 IF numoINT num THEN PRINT 
81; XS: BEEP .5,22: GO TO 1000 
1020 INPUT "Denominatore = ";den 
1030 IF denoINT den OR den=0 TH 
EN PRINT 81; (y$ AND (den=0)) + (x$ 
RND ( d e ri < > 0 ) ) : BEEP .5,22: GO T 
0 1020 


Seguito listato I. 

460 PRINT RT 16,0; 
470 PLQT g,24 


Seguito listato I. 

770 RETURN 

800 INPUT "Quanti 


numeri ? (2/6 


j ,n 

310 IF n <2 OR n>6 THEN GO TO 80 


Ora che i problemi di memorizza¬ 
zione sono stati superati, si può pas¬ 
sare senz’altro alla descrizione del 
programma. 

Come si può intuire dall’eloquente 
titolo, questo è un programma ma¬ 
tematico; appena caricato, vengono 
stampati i nomi delle sette routine 
accessibili che sono, nell’ordine, 
quelle della figura I. 

Quando nella parte bassa dello 
schermo viene stampata la scritta 
“Ready.", il calcolatore sta aspet¬ 
tando che venga selezionata la routi¬ 
ne desiderata mediante la pressione 
del tasto numerico corrispondente. 
Effettuata la scelta, la routine richie¬ 
sta sarà operativa fino a quando non 
riapparirà la scritta “Ready." e il 
numero corrispondente smetterà di 
lampeggiare. 

Tutto l’output e i risultati dei calcoli 
verranno visualizzati sempre nelle 
ultime sei righe dello schermo. 


Passiamo ora alla descrizione delle 
singole opzioni. 

Estrazione di radici quadrate 

Alcuni libri di testo delle scuole 
medie inferiori insegnano un meto¬ 
do per estrarre la radice quadrata di 
un numero, anche decimale, che 
mette in difficoltà professori e stu¬ 
denti a causa della sua complessità: 
il flow-chart della figura 2 illustra 
questo macchinoso algoritmo. 
Proprio perché si tratta di un algo¬ 
ritmo “macchinoso”, è molto adat¬ 
to ad essere implementato su una 
macchina come appunto, il compu¬ 
ter. 

L’opzione I utilizza infatti proprio 
questo metodo per l’estrazione della 
radice quadrata, con il vantaggio di 
ottenere fino a ben trenta cifre deci¬ 
mali. 


Viene chiesto il radicando, cioè il 
numero del quale si vuole conoscere 
la radice quadrata, che deve essere 
assoluto (privo di segno) e minore di 
dieci elevato alla tredicesima poten¬ 
za (1E + 13). 

La radice quadrata di un numero 
negativo, infatti non è un numero 
illimitato non periodico apparte¬ 
nente all’insieme dei numeri reali, 
perché se la radice quadrata di X è 
quel numero che moltiplicato per sé 
stesso (elevato al quadrato) dà come 
risultato lo stesso X, è vero anche 
che un numero elevato alla seconda 
è sempre positivo, e non esiste un 
numero reale che abbia come qua¬ 
drato un X negativo. 

Se si prova un: 

PRINT SQR - 4 

si ottiene un errore A Invalid argu- 
ment 0 : La conferma di quanto 
detto. 

Esiste tuttavia una classe di numeri. 
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Pluri-calc 




Seguito Usuilo 1. 

104.0 PRINT RT l8,l;nuni;RT 20.. l;d 
en 

1050 LET Ld2=LEN STRS den 

1060 LET tn2=LEN STRi num 

1070 LET in: iln2* Un2>*ld2) + ld2* 

< l n 2 < l d 2 ) ) 

10S0 PLOT Q,19 

1090 DRRU 8*ln,0 

1100 GO SUB 5000 



Seguilo listato 1. 

2000 rem i Radici Quadrate 

2010 REM 1 ua ria bi ti in INPUT : 1 
2015 REM 1 rad,d 1 

2017 REM 1 1 

2020 LET 2=1: REM 1 

2030 LET d $ =STR $ ((rad-INT rad) + 

1): REM 1 

2040 LET d $ = d $ (3 TO 1: REM 1 

-AC.-S I g T -l i*--l ^4. "C10000000000000Q0- 





- 1—±-r—d€ ft —i-HtH—PH-JrPf 1 Hi la \ «. 

n+2;"s ";nuni: RETURN 

1120 PRINT RT 19,2+In ;"a";RT 18, 

4+in ;num;RT 20 ,4 +in;den 

1130 PLOT 8* (4+tri ),19 

1140 DRRW 8* (LEN STRi nuffl*(LEN S 
TR$ riunì > =LEN STR$ denl+LEN 3TR$ 
den * (LÈN STRi den >LEN STRi numi) 

,0 

1150 RETURN 

1200 input "Parte intera = 

1205 IF iOlNT 1 OR i>=le8 TNEN 

GO TO 1200 

1210 input "Rntiperiodo = lin 

E ài 

1215 IF a $ = "" THEN GO TO 1230 

1220 IF INT URL atOURL 3$ OR UR 

L à$>99999 THEN GO TO 1210 

1230 INPUT "Periodo = LINE Pi 

1235 IF p$="" THEN GO TO 1250 

1240 IF URL PÌOINT URL P $ OR UR 

L Pi>99999999 THEN GO TO 1230 

1250 LET ten=LEN ia$+3TRÌ i) 

1270 PRINT RT 19,1, i; "."; a $ ;P$, " 

1260 PLOT INK 0,6* (2+ten) ,24 

1290 DRRU S *LEN p$,0 

1295 GO SUB 6000 

1300 IF derisi THEN PRINT RT 19, t 
en+LEN Pi+5, riunì: RETURN 

1310 LET l.n2 =LEN STRi num 

1320 LET Ld2 =LEN STRi der. 

1330 PLOT 8 * ( 5 +LEN p*+len),19 

1340 DRRU 8* ( ln2* itn2>=ld2) + td2* 
i ld2 > tn2i ) ,0 

1350 PRINT RT 13,len p$+len+5;nu 
rn ; RT 20, LEN p$ + len+5,den 

1360 RETURN 

1400 INPUT "Dividendo = ";dvd 

1405 IF dvd <0 THEN PRINT 01; X$ 
BEEP .5,22: GO TO 1400 

1410 input "Divisore = ";dvs 

1411 IF dVS<0 THEN PRINT 01; X*: 
BEEP .5,22: GO TO 1410 

1420 IF dVS = 0 THEN PRINT 01;y*: 
BEEP .5,22: GO TO 1410 

1430 INPUT "Quanti decimati 7(1/ 
1501dee 

1435 IF dec<l THEN GO TO 1430 

1440 PRINT RT 16,0;dvd; M :";dvs;" 

1450 GO SUB 7000 

1460 RETURN 

1600 INPUT "Numero da scomporre 
= ";num 

1610 IF int numonum OR not num 
THEN PRINT 01;X$: BEEP .5,22: GO 
TO 1600 

1615 IF RBS riunì >9999993 THEN PRI 
NT 01;yt: BEEP .5,22: GO TO 1600 
1620 print RT 18,1,num;" = 

1630 GO SUB 8000 

1640 RETURN 

1800 REM 

1970 REM 

1930 REM l*********************l 
1990 REM 



00000000000000000000000000000000 
00000000000000": REM 1 

2060 LET r$=5TR$ INT SOR rad: RE 

M 1 

2070 LET a = (INT rad-' INT SOR rad 
)t2)*100+UAL di'Z TO Z+l) REM 1 

2080 LET b= 2 *INT SOR rad: REM 1 

2090 PRINT ri,: REM 1 

2100 IF URL r$=SQR rad THEN RETU 
RN : REM • 

2105 IF b =0 THEN LET X = INT SOR a 
PRINT GO TO 2150: REM 1 

2110 LET x =INT ia/10/b) : REM 1 

2120 IF x = -l THEN RETURN : REM 

2130 PRINT REM 1 

2140 IF b=0 THÈN LET X=INT SOR a 

GO TO 2150 REM 1 

2145 LET X =INT ia/10/b) REM 1 

2150 IF (X + b*10t i.LEN STR$ X ) ) *X > 
a THEN LET x=X-l: GO TO 2150: RE 

M 

2160 LET r$=r$+STR$ X: REM 

2170 PRINT x; REM 

2180 LET b= Ìb*10+X) *X: REM 1 

2190 LET a=a-b REM 1 

2200 LET 2=2+2; REM 

2210 lET a=a*100+URL di(z TO Z+l 

1 REM 1 

2220 LET b=URL r$*2: REM 1 

2230 IF Z >d *2 THEN RETURN : REM 

2240 GO Tu 2140 REM 

2250 REM 1 1 

2260 REM 

2960 REM 1 ********************* 1 
2990 REM 

3000 pfm p M.C.D. Routine 

3010 REM 1 „ „ 

:-;020 PEM 1 Ua 1*1 abiti in INPUT : 1 

3030 REM l ni,n2 

3035 REM 1 

3040 REM l Uariaoite in OUTPUT, l 
3050 REM 1 med 1 

3060 REM 1 1 

3Q70 lET r=nl-INT in l/n2)*n2: RE 

M 1 

3075 LET r = INT ir+ .51 REM 1 

3060 LET n1=n2. REM 1 

3090 LET n2 = i* REM 1 

3100 IF r=0 THEN LET n»Cd=nl: RET 
URN REM 

3110 GO TO 3070: REM 

3120 REM 1 1 

3970 REM 

3980 REM 1 *********************! 
3990 REM 

4000 rem 3 m . c . m . Rou 1 1 ne 

4010 REM 1 „ „ 1 

4020 rem i uariabiti in input :i 

4030 REM 1 d1,d2 

4040 REM 1 

4O50 PEM l Uari abile in OUTPUT l 

4060 REM i meni 

4070 REM 1 

4080 REM 1 1 
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REMARKS 


Pluri-calc 

detta dei numeri immaginari, che 
emette la soluzione dell’operazione 
di radice quadrata con argomento 
negativo, ponendo Punita immagi¬ 
naria i = >/-^l (figura 3) e i 2 = — 
I. 

Questa classe di numeri appartiene, 
insieme a quella dei numeri reali, 
all'insieme dei numeri complessi, 

come si può dedurre dalla figura 4. 
Per mezzo di questa convenzione, la 
radice quadrata di un numero nega¬ 
tivo ammette una soluzione che, co¬ 
me illustra la figura 3, c uguale all’u¬ 
nità immaginaria i moltiplicata per 
la radice del radicando preso senza 
segno. 

Di conseguenza la radice quadrata 
di — 4 è uguale a 2i. 

Naturalmente tutto ciò non è stato 
implementato: se si vuole ottenere la 
radice di un numero negativo, biso¬ 
gnerà inserire il suo opposto e poi 
moltiplicare il risultato per i. 

Oltre al radicando, viene anche 
chiesto il numero di decimali che si 
vuole siano stampati oltre alla parte 
intera: se questo non è un numero 
intero, viene arrotondato all’intero 
più vicino. 

Il numero massimo di decimali 
stampabili è trenta, ma l’algoritmo 
vale per inifiniti decimali: questa li¬ 
mitazione è dovuta al fatto che le 
variabili a e b oltre i trenta- 
trentadue decimali assumono valori 
troppo grandi e danno origine a un 
errore 6 Number too big, fermando 
così il programma. 



Massimo comune divisore (MCD) 

Questo routine permette di trova¬ 
re rapidamente il massimo comune 
divisore di due o più numeri. 

Viene subito chiesto quanti numeri 
si vogliono elaborare, e poi i numeri 
vengono immessi ad uno ad uno tra¬ 
mite INPUT. 

Dopo aver accettato l’ultimo nume¬ 
ro, il massimo comune divisore vie¬ 
ne stampato a destra, mentre i nu¬ 
meri elaborati vengono incolonnati 
a sinistra. 


170-255 

260-330 

340-395 

400-540 

600-770 

800-970 

1000-1150 

1200-1360 

1400-1460 

1600-1640 

2000-2240 

3000 - 3110 

4000-4130 

5000-5120 

6000-6150 

7000-7230 

8000-8180 

9000-9006 

9910-9999 


Inizializzazione variabili. 

Stampa schermata principale. 

Attende la scelta della routine e chiama quella desiderata. 
Routine di utilizzo del primo sottoprogramma. 

Routine di utilizzo del secondo sottoprogramma. 

Routine di utilizzo del terzo sottoprogramma. 

Routine di utilizzo del quarto sottoprogramma. 

Routine di utilizzo del quinto sottoprogramma. 

Routine di utilizzo del sesto sottoprogramma. 

Routine di utilizzo del settimo sottoprogramma. 
Sottoprogramma “Radici quadrale”. 

Sottoprogramm a “M . C . D . ” .- 

Sottoprogramma “m.c.m.". 

Sottoprogramma “Semplificazione di frazioni". 
Sottoprogramma “Ricerca di frazione generatrice”. 
Sottoprogramma “Divisione illimitata”. 

Sottoprogramma “Scomposizione in fattori primi". 

DATA per i titoli. 

Routine di definizione dei caratteri utilizzati. 


I numeri devono essere interi e di¬ 
versi da zero, e possono variare da 
due a sei; questa limitazione è dovu¬ 
ta solo a ragioni di spazio (si ricordi¬ 
no le sei righe per l’output), ma con 
poche modifiche al programma è 
possibile aumentare questo numero 
all’infinito. 


Minimo comune multiplo (meni) 

Questa terza opzione, molto simi¬ 
le come struttura alla seconda, per¬ 
mette di trovare il minimo comune 
multiplo di due, tre, quattro, cinque 
o sei numeri interi non nulli. 

Viene chiesto prima quanti numeri 
si intede inserire, e poi i numeri sin¬ 
golarmente. 

Sia il massimo comune divisore che 
il minimo comune multiplo di nu¬ 
meri negativi sono considerati come 
numeri assoluti, cioè senza segno. 

Semplificazione di frazioni 

Viene chiesto prima il numeratore 
(il numero che “sta sopra” la linea di 
frazione) e poi il denominatore (il 
numero che “sta sotto” la linea di 
frazione). 

Questi devono essere numeri interi, 
e il denominatore deve essere diver¬ 
so da zero. 

Se si cerca di dividere un numero in 
zero parti, si ottiene un errore (6 
Number too bit, e questo trad.: nu¬ 


mero troppo grande) sembra un 
controsenso, essendo lo zero il nu¬ 
mero più piccolo in tutti gli altri: 
invece, se notiamo che una frazione 
con un denominatore “piccolo” è 
un numero “grande”, come da figu¬ 
ra 5, una frazione del tipo x/0 rap¬ 
presenta l’infinito, che è appunto un 
“numero troppo grande”, incom¬ 
mensurabile. 

Se il denominatore della frazione 
semplificata è uguale a uno, viene 
stampato solo il numeratore. 

Ricerca di frazione generatrice 

Questo sottoprogramma fornisce 
la frazione che, risolta, genera il nu¬ 
mero decimale illimitato periodico 
inserito precedentemente. 

Il processo risolutivo è quello di fi¬ 
gura 6. 

Come è noto, un numero periodico è 
composto da una parte intera, (il 
numero che sta alla sinistra del pun¬ 
to decimale), un periodo, (il gruppo 
di cifre decimali che si ripete all'infi¬ 
nito). e talvolta anche da un antipe¬ 
riodo, il gruppo di cifre decimali elic¬ 
si trovano prima del periodo. 

Il periodo si usa scriverlo una sola 
volta, con un linea sopra di esso. 
Per esempio,_6.45 con 23 periodico 
si scrive 6.4523. 

Se si vuole calcolare la frazione che 
genera il numero 0.78, occorre inse¬ 
rire all’INPUT della parte intera il 
numero 0, alla richiesta dell’antipe- 
riodo rispondere con ENTER. e in- 
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Seguito listato I. 

4090 LET ni sdì: REM 

4100 LET n2 ad2 : REM 

4110 GO SUB 3000: REM 

4120 LET Hi Cti =d 1 *d2/ti Cd REM 

4130 RETURN : REM 

4140 REM I 

41E0 REM I_ 

4970 REM 

4960 REM !******■! 


Seguito listato I. 

7260 REM |*********************l 

7270 REM 

8000 REM 7_SCOKiPOStZiOni_ 

6010 REM I T J 

802© rem i variabile in input i 

3030 REM I nuli 

3040 REM I • 

8050 REM l Richiède caratteri 

8060 REM i con esponente i 

■ ?. 1. 4. 5. i. li 9»-+ 


6070 REM 


_Rou tine_ 

setfip ii ricezione 
_frazioni_ 


R r ETT 

REM 
REM 
REM 
REM 
REM 
REM 

REM _ 

LET n i snudi REM 
LET n2=den: REM 
GO SUB 3000: REM 
LET nudi =num/incd 
LET den*den/i»cd . 


d i 


I. 


Variabi li 

€ OUTPUT : 


in INPUT 
n u rii , d e n 


RETURN 


REM 


REM 

REM 


I. 


I ********************* 

5_Ro utine_di_ricere a_ 

i di frazioni 

i generatrici 

i 


4 990 

5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
R000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6115 
EM 

6120 LET nudisURL 
URL (STR$ i+at) 

6130 LET den=VAL 
i * 101LEN a $ REM I 

6140 GO SUE 5000 REM I 

6150 RETURN : REM I 

6160 REM I_I 

6170 REM 

6180 REM I ********************* I 
6190 REM 
7000 REM 
7010 REM 

7020 REM i variabili ir. input 
7030 REM I dvd.dVS.dec 

7040 REM I_ 

7100 IF INT dvsodvs OR INT dvd 
>dVd THEN LET dVì=dVS *10 LET d 
d = d V d *10: GO TO 7100 REM 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

IF 


ua r i a t.i l i in input 
i ,a*,pt 


uariabi li 

r. u in 


i r. OUTPUT : 
den 


p$ = ' 


THEN LET p$ = "0‘ 


ISTRì i +a $ + p $ - 
REM I 

In*' TO LEN P$) 


6_Ro u t i n e_0 i v i s i o n e. 

i 


i 


LET den =dvs. REM 
LET nUdi = dVd REM 
GO SUB 5000 REM I 

LET k =INT (nuw/den) REM I 
PRINT k.," REM I 

LET n u ». = AB8 r. udi REM I 

den =hBS den. rem i 

n si TO dee REM i 

nudi = (nudi -den *AB5 K) *10 


‘110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
REM 

7210 LET 
7215 PRINT k 
7220 NEXT r. 
7230 RETURN 

7240 REM I_ 

7250 REM 


LET 

FOR 

LET 


k. siNT (nudi 
REM 
REM 
REM 


den) REM 


6080 RtM I_I 

8081 LET S=5GN nudi: REM I 

8085 LET nUd.sfiBS nudi REM 

8090 LET esp=0: REM I 

8100 IF nudi /2 = INT (n.'dì/2J THEN L 
ET e^p=esp+l LET nudi snudi /2 GO 
TO 8100: REM ' 

6110 IF esp>0 ANO esp 10 THEN PR 
INT 2.CHRS i.esp + 143);: REM I 

3115 IF esp>9 THEN PRINT 2,CHR$ 

152; LET esp=esp-9 GO Tu 8110 
REM I 

8120 LET inc=3 REM I 

6130 LET esp =0 REM I 

8140 IF nudi/i n c = INT (nuifl/inc) th 
EN LET esp=esp + l. LET nudi snudi /i n 
C. GO TO 3140: REM I 

3150 IF esp>0 AND esp;10 THEN PR 
INT ine;CHR$ (esp + 143) , : REM _ I 
8155 IF esp>9 THEN PRINT ine;CHR 
$ 152;: LET esp=eSp-9 GO TO 815 
0 REM „ J. 

6160 IF nudisi THEN PRINT S*1 RE 
TURN : REM • 

8170 LET inc=inC+2 REM 
8180 GO TO 8130 REM I 


8200 

REM 


3999 

REM * * * L>H I h 

9000 

REM 


9001 

DAT H 

"Radici 

9002 

DAT A 

" M • C . D . 

9003 

DATA 

" Se rii p 1 i 

azioni " 


9004 

DATA 

"Rx cere 

r i ce 



9005 

DATA 

" D i v i S i 

9006 

DATA 

" SC 0 di p 0 

0 r 1 

P 1 * i fil 1 " 


9905 

REM 


9906 

REM 

1 1 l II l.p 

9911 

GL 5 : 

PRINT 

1 , "3 

TOP thè tape" 

9912 

RE STORE 9916 

9913 

READ 

j 

9914 

POKE 

IJSP " a " 

9915 

NEXT 

f 

9916 

DATA 

0 ,0,0,2 

’=• 9 17 

DATA 

224- , 35 , 

,0 

*9 91 0 

DAT A 

224-, 8^ , 

9919 

DATA 

32.96.1 

9920 

DATA 

224.128 

,0 

9921 

DATA 

224,128 

0,0 

9922 

DATA 

iclc'i f 32 , 

0 



9923 

DATA 

224,i60 

0,0 

9924 

DhT A 

c: c.' 4- , 3. 0 

,0 

9997 

PAUSE 

33 

9998 

GO T 0 

170 

9999 

8 A VE 

"Piur i - 
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Pluri-calc 


c Pluri-calc b'j 5. cerotti 3 

1) Radi ci quadrate 

2) M.C.D. 

3 ) fu . C . (Il . 

4.)Semplificazione di frazioni 
3 i R l u « i e a fiaz. generatrice 
6)Divisione illimitata 
?)Scomposizione in fattori primi 



Figura I. La schermata principale con i titoli dei sotto- 
programmi di Pluri-calc. 


0>REM 

ZX-Spe c t rum 16K RfiM 

5 

REM _ 


10 

REM 

Routine di definizione 

20 

REM 

dei caratteri 

30 

REM 

utilizzati dai 

4.0 

REM 

so t top rogramina 

50 

REM 

SCOMPOSIZIONE IN 

60 

REM 

FfiTTORI PRIMI 

70 

REM 


80 

LET a 

= USR "a" 

20 

FÙR f 

=0 TO 71 

100 

REfiD 

b 

110 

PGKE 

a + f, b 

120 

NEXT 

f 

125 

SfiUE 

" P l u r i c h a r s " CODE a,7i=j 

127 

INPUT 

"Vuoi verir i care la r 

49 i S t 

razione ?is/n) LINE 

a $ 



129 

IF a $ 

= ,, S“ THEN PRINT 01 ; "Ri 

avvolgi il 

nastro": PfiuSE 100 : C 

LS : 

UERIFV.CODE USR "a" 

130 

STOP 


139 

DfiT fi 

0,0,0,24., 24., 0,0,0,224- 

14.0 

DfiTfi 

32,224,134,230,0,0,0 

150 

DPT fi 

224,32,96,33,230,0,0,0 

160 

DITTO 

32,96,160,246,38,0,0,0 

170 

DOT fi 

224,128,224,33,230,0,0 

180 

DfiTfi 

O,224,128.224,166,230 

190 

DfiTfi 

0,0,0,224,32,64,140 

200 

DfiTfi 

140,0.0,0,224,160,224 

210 

DfiTfi 

166,230,0,0,0,224,160 

220 

DfiTfi 

224,38,230,0,0,0 


C START ) 



Listato 2. Per mezzo di questo programma si può 
creare il file di byte che definiscono i caratteri utilizzati 
da Pluri-calc (per il Iti Kbyte). 


Figura 2. Questo diagramma di flusso rappresenta il 
procedimento utilizzato dalla routine di Pluri-calc per 
estrarre la radice quadrata di un numero decimale. 


serirc il numero 78 come periodo: in 
una frazione di secondo si otterrà 
come risposta 26/33 che genera ap¬ 
punto il numero 0.78. 

Divisione illimitata 

Questa routine permette di divi¬ 
dere due numeri, anche decimali, tra 
di loro, e ottenere un quoziente con 
infinite cifre decimali. 


Tutto ciò c ottenuto impiegando il 
procedimento usato per risolvere le 
divisioni a mano. 

Viene chiesto prima il dividendo e 
poi il divisore, i quali devono essere 
numeri, decimali, assoluti, e il divi¬ 
sore non deve essere nullo, per i mo¬ 
tivi precedentemente spiegati. 

Viene anche chiesto il numero di de¬ 
cimali che si vuole stampare; questo 


deve essere ovviamente maggiore di 
uno. e minore di 150 per evitare uno 
o più scrolling verso l’alto: comun¬ 
que, se si desiderano più decimali, è 
possibile inserire un numero qual¬ 
siasi, lenendo però presente che alla 
fine dell'output verranno lasciate 
solo le ultime sci linee e tutto il resto 
verrà cancellato dalla schermata 
principale che illustra la figura 1. 
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Pluri-calc 


Scomposizione in fattori primi 


Scomporre un numero in fattori 
primi significa trovare per quali nu¬ 
meri primi e per quante volte esso è 
divisibile. 

È appena il caso di ricordare che un 
numero si dice divisibile per un altro 

quando il loro quoziente è un nume¬ 
ro intero, e che un numero si dice 
“primo" quando è divisibile solo 
per l’unità e per se stesso. 
Inserendo un numero intero com¬ 
preso tra meno 9999999 e più 
9999999 diverso da zero, si ottiene la 
stampa dei suoi fattori primi. 
Questa routine è la più lenta tra le 
sette disponibili, perché soprattutto 
se i fattori primi sono molto grandi, 
impiega molto tempo per estrarli 
tutti. 


Alcune avvertenze 



B NUMERI RELATIVI 
C NUMERI FRAZIONARI DECIMALI 
D NUMERI IRRAZIONALI 
E NUMERI IMMAGINARI 
F NUMERI COMPLESSI 
A • B ■ C • D NUMERI REALI 


Per un buon funzionamento di 
Pluri-calc è consigliabile, durante 
un qualsiasi input, non inserire il 
numero richiesto sotto forma di 
un’espressione, ma direttamente 
senza operatori aritmetici. 

A causa delle approssimazioni inter¬ 
ne dello Spectrum, inserendo nume¬ 
ri troppo grandi o con troppi deci¬ 
mali, si potranno verificare alcuni 
errori di imprecisione, specialmente 
nel sottoprogramma che fornisce la 
radice quadrata, durante la ricerca 
di una frazione generatrice o nella 
scomposizione in fattori primi. 
Essendo Pluri-calc un programma 
di carattere matematico, è soggetto 
a numerosi errori di varia natura. 


SE X S? e sf ~T = i. 

—► — sj i ■ \j x “ i \j x 


Figura 3. Questo passaggio algebrico 
dimostra come sia possibile la risolu¬ 
zione di radici quadrate con radican¬ 
do negativo. 


Figura 4. Questo diagramma di Venti 
usati dall'algebra. 

che vengono per lo più intercettati 
da un vasto sistema di correzione 
automatica: se viene inserito un nu¬ 
mero non adeguato alle circostanze, 
si verificherà una di queste quattro 
situazioni: 

a - L’errore è trascurabile e viene 
corretto automaticamente senza ul¬ 
teriori segnalazioni; il programma 
prosegue regolarmente; 
b - L’errore è più grave, e in questo 
caso il numero viene semplicemente 
chiesto di nuovo. 

c - L’errore è gravissimo, e oltre alla 
nuova richiesta del numero, viene 
simulato un errore Number too big 
o un Invalid argument con un beep, 
a seconda dell’errore; 
d - L'errore non viene intercettato 
dal sistema di correzione, (il che si 
verifica assai raramente) e il pro¬ 
gramma si ferma con un messaggio 
di errore generato dal sistema, quin¬ 
di senza beep: è necessario quindi 
dare un RUN e reimpostare l'opera¬ 
zione interrotta 


rappresenta la suddivisione dei numeri 

Utilizzo separato 

dei sottoprogrammi di Pluri-calc 

Tutte le sobroutine di Pluri-calc 
possono essere inserite tranquilla¬ 
mente in altri programmi; le variabi¬ 
li di input e di output sono indicate 
nelle REM poste all’inizio di ogni 
singola routine del listato I; occorre 
anche tenere presente il fatto che 
alcuni sottoprogrammi ne chiama¬ 
no altri, per cui non possono lavora¬ 
re da soli. 

Le routine numero 2 e 3 trovano il 
massimo comune divisore o il mini¬ 
mo comune multiplo di due numeri 
soltanto; il sistema di correzione 
automatica è disinserito perciò si 
può chiamare una subroutine solo 
se i numeri contenuti nelle variabili 
di input sono già corretti. 

Il sottoprogramma che effettua la 
scomposizione in fattori primi uti¬ 
lizza inoltre i caratteri dalla A alla I 
in modo “graphic" definiti dal lista¬ 
to 2. 
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Figura 5. Questa iperbole conferma la proporzionalità inversa che sussiste tra 
il denominatore di una frazione e il valore reale di questa. 


Conclusione 

Dal punto di vista del BASIC, è 
inutile spiegare interamente i pro¬ 
cessi utilizzati, sia per ragioni di spa¬ 
zio che per il l’atto che interessereb¬ 
bero a pochi; tuttavia, utilizzando 
Pluri-calc ci si accorge che i messag¬ 
gi di errore simulati e la scritta “Re¬ 
ady." vengono stampati sulla “lo- 
wer part" del video, dove normal¬ 
mente non si potrebbe stampare 
niente. 

Ciò c reso possibile dalFutilizzo del 
canale I/O numero 1. che corrispon¬ 


de proprio alla parte inferiore dello 
schermo. 

È anche da notare l'utilizzo di una 
particolarità dello Spectrum nel di¬ 
mensionamento matrici: dimensio¬ 
nando un vettore di caratteri, questo 
viene riempito automaticamente 
con uno spazio (CHRS 32) per ogni 
variabile. 

In questo modo, alla linea 210 si è 
evitato di scrivere una voluminosa e 
ingombrante: 

LET s$ = “(centonovantadue spa¬ 
zi)” 

sostituendola con un praticissimo 
DIM sS (192). ■ 



Figura 6 . Questo f/ow-chart illustra il 
metodo per determinare la frazione 
generatrice di un qualsiasi numero 
decimale illimitato periodico. 
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imulazione di joystick 
_da tastiera_ 


Un’interfaccia 
software per il vostro 
ZX Spectrum 

di Massimo Modelli 

I l programma qui presenta¬ 
to ha lo scopo di permette¬ 
re la gestione di due gruppi 
di cinque tasti come due joystick se¬ 
parati. Chi infatti si sia cimentato 
nel non facile compito di progettare 
un gioco “veloce” in BASIC perdue 
giocatori, avrà notato con sconforto 
che la tastiera si blocca se due o più 
tasti vengono premuti contempora¬ 
neamente. Questo fatto porta ogni 
partita a trasformarsi inevitabil¬ 
mente in una rissa con reciproco 
scambio di accuse di slealtà nel pro¬ 
vocare il blocco della tastiera. La 
funzione INKEYS, come la INPUT, 
riporta infatti “nessun tasto” qualo¬ 
ra ne vengano premuti due o più 
contemporaneamente. 

Questa routine trasforma la tastiera 
in due joystick (non tutti infatti, 
vuoi per soldi vuoi per pudore, pos¬ 
sono comprarsi un'interfaccia joy¬ 
stick e non credo di essere l'unico 
che cerca di spacciare lo Spectrum 
unicamente come strumento di stu¬ 
dio o di lavoro ...). Inoltre questa 
routine di simulazione di joystick 
(per brevità RSJ), scritta interamen¬ 
te in linguaggio macchina, permette 
di sfruttare al meglio le interfacce 
joystick programmabili: quelle per 
intenderci che vengono lette per 
mezzo delle funzioni di lettura della 
tastiera (INKEYS e INPUT). 

Fermi tutti! In particolare quelli 
di voi che non hanno dimestichezza 
con il linguaggio macchina, non si 
spaventino e non voltino pagina: in¬ 
fatti per adoperare la RSJ non do¬ 


vrete eseguire complessi calcoli di 
locazione di memoria o passare ore 

Ttì 


-m— comp li cat i ss i me e —noiosissime 

“pokkate”. in quanto le operazioni 
di messa a punto, rilocazione e cal¬ 
colo degli indirizzi vengono eseguite 
dal programma in BASIC che prov¬ 
vede a introdurre la RSJ in memoria 
ed eventualmente a salvarla su na¬ 
stro. È quindi sufficiente usare un 
po’ di attenzione neH’inserire i valo¬ 
ri dei DATA corrispondenti al lin¬ 
guaggio macchina per disporre di 
questa routine. 


Cosa fa 

La RSJ innanzitutto considera se¬ 
paratamente sulla tastiera due grup¬ 
pi di cinque tasti che vengono fatti 
corrispondere alle quattro direzioni 
principali e al pulsante di sparo di 
un joystick; inoltre riconosce la 
pressione contemporanea di due ta¬ 
sti (ad esempio nord e est) come di¬ 
rezione diagonale. Ogni gruppo di 
tasti dispone quindi di otto direzioni 
più il tasto di sparo; ad ognuna di 
queste nove combinazioni, la RSJ 
associa un valore compreso tra 0 e 
255, dando la priorità in ogni caso al 
tasto di sparo. Il suo valore verrà 
quindi selezionalo anche se premuto 
assieme ai tasti di direzione. Ad ogni 
operazione di lettura e per ognuno 
dei due gruppi di tasti i valori corri¬ 
spondenti a quelli trovati premuti 
vengono posti in due locazioni adia¬ 
centi di memoria, i cui indirizzi sono 
forniti dal programma BASIC poi¬ 
ché dipendono dalla posizione di ri¬ 
locazione della RSJ. 

I modi di funzionamento della RSJ 
sono due: nel primo il valore reso in 
seguito alla selezione di una direzio¬ 
ne viene mantenuto sino a che una 
successiva pressione dei tasti non lo 
modifichi; nel secondo modo, inve¬ 


3 




SPARO = 12 

- 

3 



1 

\ 

. 5 = (3+2) 

\ 

/ .. 

/ 

\ 

/ 

-5 

\ 

-1 


3 

SPARO > 6 


Figura I. Valori di riferimento per il 
calcolo delle diagonali. 

ce. il valore selezionato viene mante¬ 
nuto nelle locazioni sopra citate solo 
per il tempo in cui il o i tasti corri¬ 
spondenti rimangono premuti, 
mentre nel caso in cui nessun tasto 
venga premuto, viene reso il valore 
0. Ciò corrisponde ai due modi prin¬ 
cipali di gestire il movimento in un 
programma: considerare la pressio¬ 
ne dei tasti come selezione di una 
direzione in un movimento che av¬ 
viene comunque o come comando 
per un singolo “scatto" nella dire¬ 
zione indicata. Vi sono comunque 
altre due locazioni, una per giocato¬ 
re. in cui ad ogni lettura viene scritto 
un uno se almeno uno dei tasti del 
giocatore è risultato premuto, uno 
zero nel caso contrario. Ovviamente 
sia i valori da far corrispondere alle 
direzioni che i tasti con cui selezio- 
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Simulazione 
di joystick 
_da tastiera 


narle e il modo di funzionamento 
della RSJ sono selezionabili per 
mez z o - dei pr og r amma BAS I C. - 

Inoltre, come verrà spiegato più 
avanti, la RSJ lavora parallelamente 
e indipendentemente dal program¬ 
ma che ne fa uso, integrandosi con il 
funzionamento autonomo del siste¬ 
ma operativo dello Spectrum: non 
necessita quindi di venire richiama¬ 
ta con il solito R ANDOMIZE USR. 


Come funziona 

Oltre alla vera e propria RSJ, il 
programma del listato I riloca e in¬ 
troduce in memoria altre due brevi 
routine i cui indirizzi di inizio sono 
nel listato indicati da ENTRY e 
EXIT. Il compito della prima 
(ENTRY) è di permettere il funzio¬ 
namento autonomo della RSJ, fa¬ 
cendo sì che si sostituisca nel funzio¬ 
namento, alla routine di scansione 
della tastiera che fornisce i valori 
alla funzione di INPUT: quest’ulti- 
ma routine viene infatti lanciata 
ogni cinquantesimo di secondo dal 
segnale di interruzione della tastie¬ 
ra. La sostituzione avviene facendo 
funzionare il processore Z80 nel mo¬ 
do 2 (istruzione Assembly IM2) in¬ 
vece che nell'usuale modo I (IMI). 
In questa modalità lo Z80. al ricevi¬ 
mento di una interruzione, invece di 
saltare ad un indirizzo fisso (quello 
della routine di scansione della ta¬ 
stiera) esegue la routine il cui indi¬ 
rizzo è scritto in memoria in questo 
modo: l’indirizzo della prima delle 
due celle è dato dal valore contenuto 
nel registro I dello Z80 moltiplicato 
256 + 255. 

Poiché nello Spectrum non è possi¬ 
bile che queste due celle siano nei 
primi 16 Kbyte di memoria RAM, si 
è trovato un valore opportuno in 
due celle situate nella ROM. La rou- 



Figura 2. In seguito a una interruzione viene eseguita la routine che inizia da 
PROG (H ■ 256 + L). 


tine ENTRY non deve quindi fare 
altro che passare al modo 2 e intro¬ 
durre nel registro I il valore oppor¬ 
tuno. 

Il lavoro svolto dalla seconda routi¬ 
ne (EXIT) è ovviamente l'inverso: 
cioè viene ripristinato il modo 1 riat¬ 
tivando la routine di scansione della 
tastiera rendendo di nuovo operati¬ 
va la funzione di INPUT. La funzio¬ 
ne di INKEYS resta invece sempre 
funzionante, anche con la RSJ atti¬ 
va. 

Comunque sia la cosa funziona, e 
ogni 1/50 di secondo la RSJ, il cui 
indirizzo è indicato nel listato della 
variabile PROG, viene eseguita. 

La routine RSJ può essere composta 
in quattro parti; 

• azzeramento dei flag di tasto pre¬ 
muto e distinzione tra i due modi; 

• controllo dei tasti di break; 

• lettura dei tasti selezionati per i 
due "joystick” su tastiera; 


• valutazione e scrittura dei risultati 
nelle apposite locazioni di memoria. 
La seconda operazione consiste nel 
controllo dei due tasti C A PS SHIFT 
e SPACE per permettere di ripristi¬ 
nare la routine per l’input da tastiera 
nel caso in cui, ad esempio, il pro¬ 
gramma utilizzatore si fermi per er¬ 
rore; in caso affermativo(break) sal¬ 
ta alla routine EXIT. 

Qualche parola va spesa per spiega¬ 
re come vengano individuate le dia¬ 
gonali. 

La programmazione della RSJ da 
programma BASIC (listato 1) consi¬ 
ste nel produrre due tabelle per ogni 
gruppo di tasti; la prima di queste 
contiene per ognuna delle direzioni 
e per lo sparo la parte alta dell’indi¬ 
rizzo della porta di input, la masche¬ 
ra per individuare il bit corrispon¬ 
dente al tasto tra i cinque di una 
mezzafila (vedi capitolo 32 del ma¬ 
nuale italiano) e dei valori di riferi- 
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Il Jacksoniano ha il 


Conosci la Jackson? 

La Jackson è un grande Gruppo Editoriale 
con un profondo know-how tecnico¬ 
scientifico. Pubblica 12 periodici che spaziano 
nell'intero campo dell'informatica e 
dell'elettronica. Ma non solo. Ha realizzato 


una Biblioteca - unica in Italia - che 
comprende più di 150 libri specializzati. Alla 
Jackson, insomma, trovi la cultura del XXI° 
secolo. E la Jackson ha già creato tantissimi 
Jacksoniani: centinaia di migliaia. I lettori dei 
periodici Jackson sono gente entusiasta dei 











"potere" in 

computer e dell'elettronica, lettori che sanno 
scegliere, e scelgono il meglio. Per questo 
sono sempre un po' più avanti, più informati' 
e aggiornati. Jacksoniani si diventa; e oggi il 
modo più conveniente è quello di abbonarsi. 

Gira pagina. 




GRUPPO 

EDITORIALE 

JACKSON 












Il Jacksonicmo si 


Il Jacksoniano è una persona che sa 
scegliere: per questo sceglie anche il modo 
più comodo e vantaggioso per ricevere la 
sua rivista: l'abbonamento. Abbonarsi 
conviene! Hai un risparmio immediato, la 
certezza di non perdere alcun numero e di 


ricevere la rivista puntualmente a casa tua; 
e ti metti anche al riparo da possibili 
aumenti del prezzo di copertina. In più 
usufruisci di condizioni particolari 
nell'acquisto dei libri Jackson e partecipi al 
grande concorso. In palio ci sono 100 






AUT MIN CONC 


VINCI 100 COMMODORE 64 


Abbonatevi subito: tra tutti coloro che si abboneranno a una o più riviste Jackson 
tra il 15/9/84 e il 28/2/85 saranno estratti a sorte mensilmente 20 Commodore 64. 




abbona 


Commodore 64, un grande personal, 
professionale, sofisticato, con 64 K di 
memoria, un sintetizzatore sonoro 
professionale, effetti tridimensionali. 
Cosa devi fare? Semplicemente 
sottoscrivere un abbonamento. 


e vince. 

mfàk gruppo 

K EDITORIALE 
Wm mi JACKSON 



















Simulazione 
di joystick 
_ da tastiera 


Listato I - // programma BASIC. 


1 REM ©by 


Massimo Modelli 
tei 34.53388 


1 


15 INPUT "Uaiore Ramtop (32333 
■ X: IF X XJ5R "n"-l QR X <30800 . 


THEN GO TO 15 

17 CLEfiR X 

20 DIM i$ (2,5,3) : DIM 
: FOR i=1 TG 2: LET i t (i 
R$ 2: LET i«(i ,2,3) =CHR* 
T i$ (i ,3,3) =CHR$ 3: LET 
) = CHR* 253: LET itti,5,3 
2: NEXT i: REM valori di 
e n t o calcolo diagonali: 
pettivamente per T 5 R 
t P 

30 RESTORE : FOR i=USR 
USR "t"+7 : RERD X: POKE 


T i 
40 
, 0,8 


DPTfi 0,120,96,80,72 
4,126,4,8,0,0,30,6, 
-• 32,18,10,6,30 


,64,0,0,64,32,18,10,6,30 
6,32,126,32,16,0,0,8,3,8 
,0,0,2,4,72,80,96,120,0 
50 LET dt="QRtS F": LET 

T " : REM faaMtlflÉ 


V* (2,11) 
,1,3)=CH 
254. LE 
i t ( i ,4,3 
)=CHR* 1 
ri i e r i m 
v * e " r i s 
0 F N 0 

M n" to 

i,X : NEX 

,4, ci, 0,0 

10,18,32 
, 0 , 0 , 0,1 
,42,28,8 

e *="NPQ 


60 LET by »210 
90 GO TO 1000 
99 REM Grafica tastiera 
100 FOR i=0 TO 3: PRINT 


fiT i , 0 i 


NEXT i: PRINT fiT 1,0;: LET X 
=0: LET y = 168 c 

110 FOR i»1 TO 40: PRINT "12345 
67890QUERTYUIOPfiSDFGHJKLe cZXCUBN 
MS b" ( i ) ; " ", : PLOT X , y : DRfiU 16 

,0: DRfiU 0,-9: DRfiU -16,0: DRfiU 
0,9: LET X =X +24 

120 IF i=10 THEN PRINT ''TfiB 2; 

: LET X =15: LET y=152 , 

130 IF i=20 THEN PRINT ''Th8 3; 

: LET X =23 : LET y=136 
140 IF i=30 THEN PRINT 'ThB 2;: 
LET X = 15 : LET y = 120 
150 NEXT i RETURN 

199 REM selezione tasto 

200 OUER 1: PRINT B0;fiT 0 , 0 ,"Po 

sizionati con le frecce e pr 

emi ENTER" 

210 LET x*l: LET y=X: LET Xl=X: 
LET y1=X: PRINT PfiPER 9;fiT x,x; 

d *20 FOR i=0 TO 0 STEP 0: PRINT 
fiT y *2-1, FN x (x ,y ) ; d* (K) ; fiT yl*2 
-1, FN x (x 1, y 1) ; PfiPER 9;d*(k): L 
ET X =X 1 : LET y=yl _ „ „„ 

230 IF INKEYteCHR* 13 THEN OUER 
0 GO TO 260 

240 LET y l=y + (INKEY$ = "6" fiND y< 
4) -(INKEY$ = "7" fiND y>1) : LET *1= 
X+(INKEY*="8" fiND X<10) - l INKEV$ = 
"5" fiND X >1) : NEXT i 
250 DEF FN x (x , y ) = (X-1) *3+y + (y = 
2 OR y=3)-(y =4) „ , 

260 LET i $(p,k,1) =CHR$ (255-2T ( 
(y+3)* (X>5) +(-y+4)*(X<6) ) ) 

270 LET i $(P,k,2) =CHR$ (2ti(X-l 
) *(X <6) +(10 -X ) * (X >5) ) ) 

280 input fiT 0 , 0 ;"Uà lo re coirxs 
pondente 7 (0-255)= >";i: IF i<0 

OR i>255 THEN GO TO 280 
290 LET x =UfiL "84936" (k): LET V 
*(p,X)=CHR* i: RETURN 


Seguilo listalo I. 


399 REM diagonali 

400 INPUT fiT 0 , 0 ,"Ua lo re corris 
pondente a "; FLfiSH l;(et(k)); f 
L flSH 0, " (0,255) = >"; i : IF i >255 0 
R i<0 THEN GO TO 400 

410 LET v $ (p,UfiL "07110501"(k*2 
-1 TO k *2) ) =CHR* i: RETURN 

500 PP1 N I U U E R 1, INU ER 5E T~TfiT 

9 + k , (p-1) *16+Pl; " ": RETURN 
1000 REM Ma in Program 
1100 GO SUB 100: PRINT fiT 9,0;Tfi 
8 3;"PLfiYER fi";TfiB 19;"PLfiYER 8" 
;: FOR i=l TO 5: PRINT TfiB 0;d$( 
i);" >";TflB 8;««(i);" >" fiND io 
5;TfiB 16,d*(x);" > " ; T fiB 24 , e * ( i ) 

; " >" fiND i < >5,TfiB 0,: NEXT i 

1110 FOR p=l TO 2: FOR k=l TO 5: 

LET p1=0 : GO SUB 500: GO SUB 20 
0: GO SUB 500: PRINT fiT 9+k,(p-l 
) *16+3; i : IF k <5 THEN LET pl=8: 
GO SUB 500: GO SUB 400: GO SUB 5 
00: PRINT fiT 9 + k , (p -1) *16 + 11, i 
1120 NEXT k: NEXT ? 


IF a*="n” THEN 



1130 input "Origine ? (32334) "; 
org: LET orgsINT org: IF org<0 0 
R org>65535 THEN GO TO 1130 
1140 PRINT fiT 15,0,"Key ind. ";o 
rg+156,"Key ind. ";org+157,"Flag 
ind.",org+154,"Flag ind.";org+l 
55 

1170 INPUT fiT 0 , 0 ;"Desideri che 
il valore del tastovenga conserv 
ato anche se non viene piu' pr 
emuto? (y/n) ";a*: IF a*o"y" fiN 

D a * o"n" THEN GO TO 117© 

1180 LET Fconssl: 

LET Fcons=0 

1190 PRINT fiT 18,0;"Ripetizione 
automatica tasto: 

2010 PRINT "Origine ;org, Nymei 
o bytes ";by'"En t r y p . ";org,"Ex x 
t rout. ";org+7'"Program ";org+l 
4,"Cons reg ";org+l89 
920^ PR INT 00; fiT 0,0,’ _ 

13 _ 

_ 0 

INPUT PRINT ' ' ' " ' ' ' ' ' 

2030 PRINT fiT 14,0;"Hindi rizzi d 
isponibili per il caricamento 
'"da ",23296,"a ";23S52-by," 

; 1+PEEK 23730 +256+PEEK 23731," 

";PEEK 23732+256*PEEK 23733-by,’ 
E se canni sono cavoli tuoi..." 
2040 input "Carico da ? (io non 
controllo...) ";orgl: LET orgi=i 
NT o r g 1 : PRINT fiT 18,0; 

2050 PRINT INUERSE 1,"fittenzione 
: i bytes da 32348 a 32350 devo 
no contenere 195, ";org 

+ 14-256*int ( (org+14)/256);", ; 

INT ( (org+ 14) /2S5);" (o org=3233 
4) " ; TfiB 0 

2060 LET orgtabh=INT ((org+158)/ 
256): LET orgtab l =org+158-0rgtab 
h *256 : GO SUB 3000: REM Pokka 
2070 INPUT RT 0 , 0 ;"Desideri salv 
aria su nastro y/n";a$: IF 
y" THEN INPUT "nome ? ", LINE il 
: SfiUE a SCODE orgl,by: PRINT 00; 
"uerify": uerify a «code 
2030 STOP 

2999 REM POkka „ , „ 

3000 RESTORE 6000: FOR i=0 TO 15 
3: REfiD code: POKE orgl+i,code: 
WFVT , 
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Offerta valida solo fino al 28-2-85 


Il Jacksoniano sceglie 

tra 12 top... 


Jackson & Sons 




4.0M I * 


m 


Jackson: una grande, esauriente scelta di 
periodici per sapere tutto ciò che è 
indispensabile. 

In più abbonandoti a queste riviste puoi 
moltiplicare le tue possibilità di vincere il 
favoloso premio del grande concorso Jackson. 
Personal Software, la rivista dedicata al 
software dei personal computer; 

Bit, la prima rivista europea di personal 
computer, software, accessori, la più prestigiosa 
e più diffusa in Italia; 

Informatica Oggi, il punto di riferimento 
obbligato per chi si occupa di sistemi EDP e di 
Office Automation; 

PC Magazine, la prima rivista italiana 

dei sistemi MS-DOS, Personal Computer IBM 

e compatibili; 


Elettronica Oggi, la più autorevole-rivista di 
elettronica professionale, strumentazione e 
componenti; 

Automazione Oggi, il mensile della nuova 
automazione industriale; 

L'Elettronica, il quindicinale di politica 
industriale, componentistica, informatica e 
telecomunicazioni; 

Compuscuola,la rivista di informatica nella 
didattica, per la scuola italiana. 
Telecomunicazioni Oggi, la rivista di 
telecomunicazioni e telematica; 

Videogiochi, la guida indiscussa al fantastico 
mondo dei videogames; 

Home Computer, la rivista del computer in casa; 
Strumenti Musicali, il periodico di strumenti 
musicali e computer-music. 


...e ha una biblioteca . 
ricchissima tutta per lui. 

(con uno sconto del 20%)* 

Guarda a pag. 99 i titoli della Biblioteca Jackson. 


* 


GRUPPO EDITORIALE JACKSON 
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Simulazione 
di joystick 
_da tastiera 


Seguito listato I. 

3010 LET i nd =0 i*9 1 + 158 

3020 FOR p=l TO 2: FOR k=l T0 5: 

FOR ì-1 TO 3: POKE ind,CODE i*( 
p,K,i): LET i ridai nd + 1: NEXT i: N 
EXT k: NEXT p 

3030 FOR p=l TO 2: FOR i=l TO 11 
POKE ind,CODE V $ (P , i ) : LET ind 
— n d tl ; NEXT i : NEXT p- 

304.0 POKE 0 rg 1 + 139 , Fcons : RETURN 

8000 REM * *ENTRY * * 

8010 DRTR 62 , 4.0,237,71,237 , 94,20 
1 

8020 REM **EXIT** 

8030 DRTR 237,36,193.. 225,241., 251 

,201 

8040 REM **PROG** 

3050 DRTR 221,33,orgtabl,orgtabh 
,245,229,197,175,33,252,255,221, 
229,193,9,119,35,119,221,126,31, 
230,1,32,4,35,119,35,119,197,225 


Seguito listato I. 

8060 REM **BRK** 

3070 DRTR 1,254,254,237,120,6,12 
7,237,64,176,203,71,40,204,6,2 
8080 REM **LOOPG** 

8090 DRTR 221,112,42,221,54,39,0 
,6,5 

8100 REM **LOOPK$* 

8 110 DRTR 197,70,35,237, 1 2 0 , 166 


O X ' L/ H t H J. 7 7 1 — ; r j < tv» ^ ^ ****** > O.WV-y— 

35.126.35,32,6,221,134,39,221,lì 
9,39 

3120 REM **ENDK** _ 

8130 DRTR 193,16,230,229,221,78, 
42.221,126,39,167,40,43,197,203, 
33,203,33,71,62,12,129,79,120,6, 
0,9,19S .5,254,11,48,10,214,5,79, 
203,127,40,2,6,255,9,126,221,229 
,225,193,167,237,66,119,43,43,54 
,1,65,225,14,254,16,168 
8140 REM **ENDPROG** 

3150 DRTR 193,225,241,251,201 
9999 PRINT 65536-JSR 7982 


mento come da figura I in alto. Nel¬ 
la lettura di tasti questi valori vengo¬ 
no sommati individuando così la di¬ 
rezione e tenendo inoltre conto del¬ 
l’alta priorità del tasto di sparo (vedi 
figura 1 in basso). La seconda tabel¬ 
la contiene invece, per ogni direzio¬ 
ne, il valore da fornire come risulta¬ 
to finale. L’ordine con cui sono di¬ 
sposti i valori nella seconda tabella è 
quello relativo ai valori della figura 
1 considerando centrale il valore 
dello sparo; quindi il valore della 
diagonale inferiore destra precederà 
di un posto quello dello sparo (— I), 
mentre quello della direzione nord 
lo seguirà tre posti più avanti. I posti 
che rimangono inutilizzati nelle due 
tabelle (4 e — 4) sono utilizzati dalla 
RSJ per delle variabili. 


Programmazione della RSJ 

E veniamo finalmente al listato I 
per vedere come preparare la RSJ. 
Dopo averla digitata e salvata su 
nastro (meglio essere prudenti!) 
possiamo utilizzarla dando il RUN. 
Per prima cosa il programma chiede 
il nuovo valore da dare alla RAM- 
TOP: ciò è necessario perché il valo¬ 
re usuale non garantisce spazio suf¬ 
ficiente per proteggere la RSJ (210 
byte). Il valore suggerito tra paren¬ 
tesi è quello ottimale, ma è possibile 


fornire uno più alto (48 Kbyte) o più 
basso. Non è comunque indispensa¬ 
bile avere a disposizione lo spazio in 
cui la routine dovrà funzionare, ma 
solo quello per memorizzarla tem¬ 
poraneamente. 

Inizia quindi la programmazione 
della RSJ e sullo schermo viene vi¬ 
sualizzata la tastiera dello Spectrum 
con una freccia lampeggiante sul 
primo tasto in alto a sinistra: utiliz¬ 
zando i tasti con le frecce, si dovrà 
portare tale simbolo sul tasto pre¬ 
scelto per la direzione indicata dalla 
freccia lampeggiante. Alla pressione 
di ENTER viene richiesto il valore, 
tra 0 e 255, da far corrispondere alla 
direzione e quello da fare corrispon¬ 
dere a una delle diagonali. Si proce¬ 
de in questo modo per entrambi i 
giocatori fino al tasto da selezionare 
per lo sparo. 

Viene richiesto a questo punto dal 
programma l’indirizzo (origine) in 
cui le tre routine dovranno venire 
memorizzate quando saranno ac¬ 
coppiate al programma che ne farà 
uso (il valore fornito è anche l’indi¬ 
rizzo di ENTRY, mentre quello del¬ 
la RSJ è: origine + 14). 

Questo indirizzo non è necessa¬ 
riamente quello dal quale verranno 
alla fine del lavoro memorizzate le 
routine, ma serve per preparare la 
RSJ che deve “sapere" che viene al¬ 
locata in memoria. Il valore tra pa¬ 


rentesi che viene visualizzato è an- 
ch’esso solo consigliato e può essere 
modificato (vedi in seguito), ma è 
certo il più comodo. 

L’ultimo dato di cui il programma 
necessita per poter preparare la RSJ 
è la modalità con cui si desidera che 
operi, e viene pertanto richiesto se si 
desidera o meno che l’ultimo valore 
letto sia conservato anche se nessun 
tasto risulti premuto. Sullo schermo 
rimangono disponibili tutte le infor¬ 
mazioni riguardanti le routine il cui 
significato è commentato in tabella 
I. 

Poiché non resta altro che salvare le 
routine in memoria ed eventualmen¬ 
te su nastro, il programma mostra 
gli indirizzi protetti, sia nel buffer di 
stampa che sopra ramtop, per la me¬ 
morizzazione: ricevuto il valore me¬ 
morizza, eventualmente salva su na¬ 
stro e chiude. 

Come si è detto in seguito ad una 
interruzione lo Z80 esegue la routine 
il cui indirizzo è contenuto in due 
celle della ROM, che contengono il 
valore 32348: i casi sono quindi due: 
o la RSJ inizia appunto da lì e quindi 
PROGRAMM = 32348 (e i valori 
consigliati servivano appunto a que¬ 
sto), oppure quella locazione e le 
due seguenti dovranno contenere i 
valori indicati dal programma alla 
fine, corrispondenti all’istruzione 
assembler JP PROG. 
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Ecco come ti abboni, 
risparmi, vinci. 


VINCI 100 COMMODORE 64 


Abbonatevi subito: tra tutti coloro che si abboneranno a una o più riviste Jackson 
tra il 15/9/84 e il 28/2/85 saranno estratti a sorte mensilmente 20 Commodore 64. 



Per sottoscrivere abbonamenti potrete utilizzare il modulo di cc/p inserito in questo fascicolo o inviare un assegno allegato al tagliando sottostante. 


Gruppo Editoriale Jackson S.r.l. - Via Rosellini, 12 - 20124 Milano, allegando assegno o fotocopia della ricevuta 
di versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON - MILANO. 

□ Si, desidero sottoscrivere un abbonamento a: 

□ Personal Software (11 n.) L. 34.000 anziché L. 44.000 

□ Bit (11 n.) L. 43.000 anziché L. 55.000 

□ Informatica Oggi (11 n.) L. 31.000 anziché L. 38.500 

□ PC Magazine (10 n.) L. 40.000 anziché L. 50.000 

□ Elettronica Oggi (11 n.) L. 36.000 anziché L. 44.000 

□ Automazione Oggi (11 n.) L. 30.500 anziché L. 38.500 

□ L'Elettronica (22 n.) L. 44.000 


□ Compuscuola (9 n.) L. 15.000 anziché L. 18.000 j_ 

□ Telecomunicazioni Oggi (10 n.) L. 28.000 anziché L. 35.000 m 

□ Videogiochi (11 n.) L. 30.000 anziché L. 38.500 

□ Home Computer (11 n.) L. 31.500 anziché L. 38.500 

□ Strumenti Musicali (10 n.) L. 24.000 anziché L. 30.000 

□ Tempo di computer (10 n.) L. 35.000 anziché L. 45.000 

Attenzione per abbonamento all'estero le tariffe devono essere 
aumentate del 50% 


E c'è un supersconto a chi si abbona a due o più riviste. 

Tutti coloro che sottoscrivono l'abbonamento a due o più riviste godono di un prezzo ulteriormente agevolato, come appare nella seguente tabellina. 
Esempio: Bit + lnformatica Oggi L. 43.000+31 000=L. 74.000 meno L. 2.000 = L. 72.000 


Abbonamento Abbonamento 

a 2 riviste; L. 2.000 in meno sulla somma dei 2 prezzi d'abbonamento_a 8 riviste; l. 20.000 in meno sulla somma degli 8 prezzi d'abbonamento 

a 3 riviste: L. 4.000 in mono sulla sommo dei 3 prezzi d'abbonamento _ a 9 riviste: L. 25.000_in meno sulla somma dei 9 prezzi d'abbonamento 

a 4 riviste; L. 7.000 in meno sulla somma dei 4 prezzi d'abbonamento a 10 riviste: L. 30.000 in meno sulla somma dei 10 prezzi d'abbonamento 

o 5 riviste: L. 10.000 in meno sulla sommo dei 5 prezzi d'obbonamento_all riviste: L. 35.000 in meno sullo somma degli 11 prezzi d'obbonamento 

a 6 riviste: L. 13.0 00 in meno sulla somma dei 6 prezzi d'abbonamento a 12 riviste: L. 40.000 in meno sullo so mmo dei 12 prezzi d'obbonamento 

a 7 riviste: L. 16.000 in meno sulla somma dei 7 prezzi d'abbonamento 


□ Allego assegno n°_ della Banca 

□ Ho effettuato versamento con vaglia postale e allego fotocopia della ricevuta 

Nome_ 


Cognome 


Azienda 


CAP. 

Città 

Via 




GRUPPO 

EDITORIALE 
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Simulazione 
di joystick 
da tastiera 


KEY 

FLAG 

ORIGINE 


BYTES 

ENTRY 

EXIT 

PROGRAMMI 
CONS REG 


Due indirizzi per i due giocatori; contiene il valore tra 0 e 255 corrispondente alla direzione 
prescelta. 

Due indirizzi per i due giocatori; contiene un uno se uno dei tasti del giocatore è premuto, 
altrimenti uno zero. 

Indirizzo da specificare nel comando L.OAD per caricare le routine, punta al primo byte che deve 

orrupnln Ha i|i»>stp___ 

Lunghezza del blocco di byte da specificare nel comando LOAD, comprende le routine e i dati. 
Indirizzo della routine che manda in esecuzione automatica la RSJ. 

Indirizzo della routine che disabilita la RSJ e ripristina la routine di scansione della tastiera (perla 
INPUT). 

Indirizzo della RSJ (per azionarla sotto controllo BASIC. 

Indirizzo della variabile di un byte che determina il modo di funzionamento della RSJ (0 per 
rendere 0 se nessun tasto viene premuto, I per conservare il valore). 


Tabella I. Lista delle informazioni riguardanti le routine. 


Come si usa la RSJ 

Una volta preparata la RSJ e cari¬ 
cata su nastro per utilizzarla è suffi¬ 
ciente ricordarsi queste poche note. 
Prima di caricare le routine, il pro¬ 
gramma che ne farà uso dovrà ese¬ 
guire un clear per spostare opportu¬ 
namente la ramtop con il valore 
ORIGINE-I: nel caso inetti le routi¬ 
ne siano state preparate per essere 
poste nel buffer della stampante o 
come linea rem nel programma, sarà 
sufficiente proteggere l’indirizzo 
32348 con CLEAR 32347. Nel caso 
in cui non sia stato accettato il consi¬ 
glio dato dal programma per il valo¬ 
re di ORIGINE, sarà anche necessa¬ 
rio ‘‘pokkare’’ i tre valori indicati 
dal programma. 

Dopo aver caricato la RSJ con il 
comando: 

LOAD “nome” CODE ORIGINE. 
BYTE 

e aver eseguito i necessari INPUT 
(ricordare che la RSJ disabilita la 
INPUT), per attivarla basterà utiliz¬ 
zare il comando: 

RANDOMIZE USR ENTRY 
Da questo momento la RSJ sarà 
funzionante e si potranno conoscere 
i valori forniti per mezzo del coman¬ 
do PEEK KEY o sapere se un tasto è 
premuto con PEEK FLAG. Per di¬ 
sinserire la RSJ durante l’esecuzione 
del programma si dovrà utilizzare il 


comando RANDOMIZE USR 
EXIT. Come si è detto è possibile 
disinserire la RSJ anche con il bre¬ 
ak. 


Modifiche 

Come viene proposta la RSJ pre¬ 
senta alcuni svantaggi che in certi 
casi possono venire superati abba¬ 
stanza agevolmente. Il primo di que¬ 
sti è l'esclusione della funzione IN¬ 
PUT, e il secondo è legato al primo c 
consiste nel blocco imposto al con- 
tatempo dello Spectrum. In alcuni 
casi può infatti essere necessario ese¬ 
guire da programma degli INPUT 
frequenti e risulta scomodo attivare 
e disattivare in continuazione la 
RSJ; oppure può essere necessario 
disporre del contatempo. La solu¬ 
zione è semplice, in quanto è suffi¬ 
ciente sostituire gli ultimi tre valori 
del DATA di linea 8150 con i se¬ 
guenti 195. 57, 00. 

In questo modo si “appende” alla 
RSJ la routine di gestione della ta¬ 
stiera. anche se probabilmente si ral¬ 
lenta un po' il già lento BASIC. 

La seconda modifica proposta 
permette di risolvere un problema 
che si pone nella versione da 48 
Kbyte. Si è infatti vincolati a dover 


abbassare la ramtop per proteggere 
l'indirizzo da cui lo Z80 inizia ad 
eseguire la routine in seguito a una 
interruzione, rendendo inutilizzabili 
38 Kbyte di memoria. Per poter dis¬ 
porre di tutta la memoria della ver¬ 
sione espansa dello Spectrum è ne¬ 
cessario operare sulla routine 
ENTRY in modo da far puntare al 
registro I una zona diversa della me¬ 
moria che sia nei 38 Kbyte superiori. 
Come si vede in figura 2. lo Z80 
pone nel contatore di programma il 
valore trovato nelle due celle punta¬ 
te dal registro 1 (x • 256 -T 255 e 
seguente) e passa quindi a eseguire 
la routine che inizia a quel valore(H 
•256 + L). 

È sufficiente per fare questa modifi¬ 
ca cambiare l'istruzione nella routi¬ 
ne ENTRY da LD A. 40 (codici de¬ 
cimali 62, 40) in LD A. X (62. X) e 
ricordarsi di “pokare” nelle due lo¬ 
cazioni così puntate i valori L e H. 
rispettivamente la parte meno e la 
più significativa deH’indirizzo della 
RSJ (PROGRAMM). In questo ca¬ 
so è ovviamente consigliabile, se 
IND è l'indirizzo del primo dei due 
byte che deve contenere l’indirizzo 
di inizio della RSJ. preparare le rou¬ 
tine in modo che il valore di ORIGI¬ 
NE sia IND + 2 e caricare su nastro 
anche i due byte precedenti le routi¬ 
ne. ■ 
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BUSINESS 


ALLA COMDEX/EUROPE ’84 

l’unica fiera ideata esclusivamente 
per i fabbricanti di ordinatori di tutto il mondo 
e rivenditori di tutta l’Europa. 


• Se siete: 

- Preparatore di sistemi 

- Addizionatore di valori 

- Distributore 

- Dettagliante 

- Concessionario 

- Distributore di macchine 
da ufficio 

- Distributore di prodotti 
da ufficio 

- Compratore all'ingrosso 

- Integratore di sistemi 

- Rappresentante 

• La Comdex/Europe ’84 sarà la 
Sua migliore occasione per 
stabilire influenti rapporti 
commerciali con chi fabbrica il 
prodotto che Lei potrà vendere 
con profitto. 

Rappresentanti degli ordinatori e 
prodotti simili più importanti ed 
avanzati sono dispositi a parlare 
con Lei su come espandere gli 
affari vendendo i Loro prodotti. 


• Verrà offerta altrettanto una serie 
di sessioni di conferenze nelle 
quale si dibatteranno le tendenze 
del settore ed il modo di far 
aumentare la redditività dei Suoi 
affari. 


Comunicateci già la Sua parte¬ 
cipazione a ciò che può risultare 
l’evento più produttivo del Suo 
anno commerciale. 


CMfìDCM/EUROK >84 

29 Ottobre -1 Novembre 1984 

RAI Fiera (RAI Exhibition Center), Amsterdam, Olanda 

Richiedete maggiori informazioni riempiendo il tagliando. <=== 9^r~^ 

I- 

, Si. mi piacerebbe ricevere più ampie informazioni sulla Comdex/Europe '84 j 

□ Sono interessato in esposizioni 

□ Sono interessato in partecipazioni 

Nome_ 

Ditta_ 

Indirizzo_ 

Città_Paese 

Telefono_ 

Rimandate a: Comdex/Europe ’84, Rivierstaete, Amsteldijk 166,1079 LH Amsterdam, 

I Olanda. Telef. (31) 20460201 tlx. 12358 iface ni telefax: (31) 20 461634. 
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isoluzione triangoli 
con lo Spectrum— 



- Tutt a l a trigonom et ria 

che serve, corredata da 
un’ottima grafica 

di Anacleto Furlan 

Q uesto programma può 
avere svariate applicazioni 
pratiche. Può servire ai to¬ 
pografi per la determinazione indi¬ 
retta delle distanze nelle triangola¬ 
zioni, ai progettisti edili per calcola¬ 
re l’intensità della forza (equilibran¬ 
te) che chiude il parallelogramma o 
il poligono delle forze, agli elettro- 
tecnici, ad esempio, per il calcolo 
dello sfasamento fra grandezze elet¬ 
triche e agli studenti delle scuole me¬ 
die superiori durante il corso di fri- 
gonometria. Per questi ultimi, sicco¬ 
me nella risoluzione di un triangolo 
si possono presentare casi particola¬ 
ri, questo programma può servire 
anche da test per verificare la pro¬ 
pria chiarezza di idee per quanto 
riguarda il riconoscimento dei casi 
limite, indeterminati, impossibili. 


Aspetto matematico 

—l a ma t ema ti ca delta ri so l u z i o n e 

di un triangolo stabilisce innanzitut¬ 
to che basta la conoscenza di 3 dei 6 
elementi che caratterizzano un tri¬ 
angolo (3 Iati + 3 angoli) per poter 
determinare gli altri 3; è indispensa¬ 
bile però che almeno uno di questi 3 
elementi sia un lato, altrimenti il 
problema è indeterminato (in altre 
parole, se di un triangolo sono noti 
solo i suoi 3 angoli, esistono infinite 
terne di lati che risolvono il proble¬ 
ma). 

Il numero dei casi che si possono 
presentare è dunque uguale al nu¬ 
mero delle terne che si possono for¬ 
mare con 6 elementi, cioè (5) = 
(6x5x4)/(3x2xl) = 20. Togliendo la 
terna formata dai tre angoli riman¬ 
gono 19 casi. D’altra parte, in alcuni 
casi il “procedimento” di risoluzio¬ 
ne è lo stesso (ad esempio, se sono 
noti 2 lati e l’angolo compreso, si 
applica prima il teorema di Carnot e 
poi quello dei seni). Pertanto, sfrut¬ 
tando la simmetria circolare dei ca¬ 
si, simili (ad esempio a b a, b c p, c a 
y), il calcolatore userà la stessa rou¬ 
tine per risolverli. 


Di conseguenza, se si fanno conflui- 
re i 19 casi in gruppi di casi simili, si 

ottengono 4 insiemi di casi, che cor¬ 

risponderanno a 4 procedimenti di 
soluzione. 

Ora si tratta di risolvere il problema 
deH’indirizzamento ai procedimen¬ 
ti, cioè il far riconoscere al calcola¬ 
tore l’appartenenza ad uno dei quat¬ 
tro insiemi. Intanto, se sono noti ad 
esempio a, b, (3,, il calcolatore deve 
essere a conoscenza che c,a y non 
sono noti, in modo che nell’esame 
delle 19 terne non vengano conside¬ 
rate tutte quelle che contengono an¬ 
che uno solo degli elementi non noti. 
Ricordando che nel prodotto fra 
due o più numeri la presenza anche 
di un solo elemento nullo annulla il 
prodotto, l’algoritmo di indirizza¬ 
mento consisterà dunque nel porre 
momentaneamente uguali a zero gli 
elementi non noti e nel moltiplicare 
fra loro gli elementi delle 19 terne: 
l’unica terna non nulla indirizzerà al 
procedimento risolutivo. Natural¬ 
mente, l’esame delle 19 terne verrà 
suddiviso in 4 fasi successive, corri¬ 
spondenti ciascuna ad un diverso 
procedimento; inoltre, in ognuna 



(S7X 



n.b. 


(nodo G +fi 
modo G +B 
modo G +C 

. sessas. 


* » 

b« 

c-7 

14-, 3 

16.7 

£7.002814 

2.6759881 


i »?" 

yj? " 

24«8 29" 

28°31'51" 

151°28'9" 

127 «19'40 '■ 
4«23'22" | 


Figura 1. Quadro iniziale, il computer attende che 
vengano dichiarati gli elementi noti. Per esempio digi¬ 
tare "a p y”. 


Figura 2. Ecco un triangolo con due soluzioni possibili! 
A ttemione a specificare gli angoli nel formato previsto; 
per esempio 15° 3’ 22" va scritto "0150322". 
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Risoluzione triangoli 
_con lo Spectrum 


Listato 1. Questo programma occupa 9416 byte e quin¬ 
di non gira sullo Spectrum 16 Kbyte, ma richiede l'e¬ 
spansione a 48 Kbyte. È tuttavia possibile compattarlo 
e ridurlo sotto gli 8 Kbyte, cosicché giri anche senza 
espansione. 


10 CLS : PRINT RT 4,0 ;"UUUnUUU 

TR 80 N print RT ia,«; "ununuuuununu 
uunuuuuuuuuuuuuuunun'' 

55 PRINT RT 16,8;"© Anacleto F 
urlìo - 1083" 

30 PRUSE 160 

4-0 REM definizione caratteri:* 

''ia'LéT’9-0 

4-8 FOR n «0 TO 7: READ a: POKE 
U8R "a"+n,f: RERD 9: POKE U5R "b 
"♦n,9: RERD 9: POKE U8R "C"+n,9: 

RERD 9: POKE U5R "d"+n,g: RERD 
fl: POKE USR "e"+n,9: RERD 9: POK 
£ USR "f"+n,9: READ 9: POKE USR 
" 9 "+n , Q : NEXT n 

50 DATA 0,0,0.0,0,1,886,3,16,7 
8,84,18,3,865,35,4.0,40,36,36,7,1 
2Ó,88,80,16,36,0,15,846,86,73,40 
,84,0,31,848,36,112,40,0,0,48,48 
,0,64,16,0,0,96,84,0,128,0,0,0,0 
,0 

63 BORDER 6: PAPER 6: INK 0: C 
LS : PRINT RT 7,11;"PremiRT 9 
,i;"s - se usi !i sistema scssag 

.";RT il,l;"c - se usi il sistem 
a centes.";AT I3,i;"r - se usi » 
l sisteme radianti’*: LET rr»0 
54 LET X*=INKEYJ 
65 I F xt-"s" THEN LET f l-0 : 

TO 60 

56 I F X*-"C" THEN LET fl-40 
0 TO 60 


Cf» 

fl=0: 00 TO 60 
58 00 TO 54 

60 CLS : DIM a 13) : DIM q(3) : D 
IM e (3): DIM (fi (3) : LET Hq-0: LET 
sq>0: LET r -0 : DIM d(3) 

70 00 SUB 900 

75 REM indirizzamento al pruno 

C ?8°rOR bai TO 3: FOR Cai TO 2: 
IF a (b) »d (O ad (c + 1) < >0 OR a ( b) # 
d (1) td (3) < >0 THEN 00 TO 98 
80 NEXT C: NEXT b 
83 REM indirizzamento al terzo 
caso 

85 IF a < 1) *a (2) *a (3) < >0 THEN G 
0 TO 800 

86 REM indirizzamento al quart 

0 é$*FOR bai TO 3: 00 SUB 550: I 
F a (b) aa CO) *d (p) < >0 THEN 00 TO 3 
00 

88 NEXT b 

89 REM indirizzamento al sccon 
do caso 


00 

0 

LE 


90 FOR bai TO 3: 00 SUB 550 


-—ir—o > * a «a ioi < i ntn v» 

° 92 IF°a(b)*a ( 0 )*dtb) <>0 THEN L 

ET q =0 : LET 0 «b: LET b*q: 00 TO 

400 

93 NEXT b 

Il lÉ M d P cÌ)+8($?+d<3)>PI THEN 0 

0 TO 650 

100 IF d(1)+dC2)ad (3)-PI THEN 0 

0 TO 670 

101 IF d(l)<>0 THEN 00 TO 103 

102 LET d ( 1) «PI-d (2) -d (3) : LET 
h-lf LET qtl)=d(D: 00 SUB 500 

103 IF d(2) <>0 THEN 00 TO 106 

104 LET d (2)sPI-d(1)-d (3) : LET 
h a2: LET q (2)-d (2) : 00 SUB 50© 

106 IF d(3) < >0 THEN 00 TO 110^ 

lIt 

x 48 \sr lìt'ìk rK&wi 

135 FOR bai TO 3: IF q(b)»d(b) 
THEN LET d (b)-0 

150 NEXT b: GO TO 700 

200 REM terzo caso 

201 FOR bai TO 3: 00 SUB 550: I 

F a tb) >a to)+a (p) THEN GO to 650 

202 IF a ( b) aa (0 )+a (p ) THEN 00 T 

0 670 

203 IF a(b)<RBS lato)-a(p)) THE 

N GO TO 650 

204 IF a (b) ea ( 0 ) -a (p) THEN 00 T 

U 205 0 NEXT b: FOR b«l TO 3: LET d 
( b) =rcs ( (a (8) ta+a (3) ta-a (i) t2) / 
(2*a(8)#4(3))): LET hab 

210 00 SUB 500: LET t 18) M d) : 

LET a (1> aa (2) : LET a (2) -a (3) : LE 

T a (3) ai 12) : NEXT b: LET d(l)»0: 

LET d(2)»0: LeT d(3)«0: 00 TO 7 
00 

300 REM quarto caso 

310 LET eip)=SOR la (b) t2+a (o) t2 
-2*a (b)*a ( 0 ) *COS d (p) ) : , 

320 LET d<h)»ACS l (a (0 t2+e (P) T 
2 -a (b) T 2 ) / (2*a (o) #e (p) ) ) : 00 SUB 
500 

330 LET h =o; LET d(h)-PI-(d(b) + 
dtp)); GO SUB 500; LET d(b)-0; L 
ET d (0) *0 : 00 TO 700 

400 REM secondo caso 

401 IF a (o) <a (b) *SIN d(0) THEN 

00 TO 660 

402 IF d (0 ) > aPX/2 RND a( 0 )<-a(b 
) THEN GO TO 660 

403 IF a(0) >a(b)#SIN d( 0 ) RND a 
(o ) <a ( b) THEN LET sq»l 

405 LET d ( b) ®RSN (atb)*SIN dio) 
/ato)): LET h-b: GO SUB 500 

410 LET d(p)-Pl-d(0)-d(b): LET 
h =P- 00 SUB 500 

415 LET e (P ) «a (0 ) *SIN dtp) /SIN 

d 420 LET r-dtp): LET dtp)»©: LET 
S=d(b): LET d(b)=0: 00 TO 700 
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Quando il computer parta il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell'informatica relativamente 
nuovo, ma suscettibile di imprevedibili 
sviluppi. Questo volume, nato in 
collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienza nuova e 
affascinante: dall’animazione cinematografica 
e televisiva ai businnes graphics: dalla 

Mauro Salvemini 

COMPUTER 
GRAFICA 

176 pagine. Lire 29.000 
Codice 519 P 


progettazione in architettura a quella in 
elettronica e in meccanica; dalla mappazione 
alla manipolazione tridimensionale delle 
immagini... Realizzata in modo da permettere 
un rapido, ma esauriente approccio 
all'argomento, l’opera si rivolge a quanti 
(lettori-utenti) siano alla ricerca dei necessari 
chiarimenti per una corretta e proficua 
utilizzazione delle tecniche di Computer grafica. 
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Per ordinare il volume utilizzare 
l’apposito tagliando inserito in fondo alla rivista 








IN MILANO - VIA MASCHERONI, 14 


IL VOSTRO 
“NUOVISSIMO" 


COMPUTER SHOP 
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Risoluzione triangoli 
con lo Spectrum 


Seguito listato 1. 

425 LET sq»0: LET <J <p ) »r : LET d 

( 426*LET d ( b> *PI-d (b> : LET h»b: 
CO SUB 500: CO TO *10 
500 REM trasformazione degli an 
goti in forma sessadecima Le 
505 IF fi-=l THEN LET m (h) *d (h) : 

SO TO~530 -“ 

510 LET m(h)*180«d(h)/PI 
530 RETURN 

550 REM rotazione indici 
560 IF b*l THEN LET 0*2: LET P= 
3 

570 IF b«2 TMEN LET 0*3: LET P* 

1 

580 IF b»3 THEN LET 0*1: LET p= 

2 

590 RETURN 

600 REM caso indeterminato 
610 CO SUB 750: BEEP .5,-10: PR 
INT RT 19,0;"INDETERMINATO. : GO 

TO 690 

650 REM caso impossibile 
660 GO SUB 750: BEEP .5,0: PRIN 
T RT 19,0,"IMPOSSIBILE.": CO TO 
690 

670 REM caso limi te _ 

680 GO SUB 750: BEEP .5,10: PRI 
NT RT 19,0,"TRIANGOLO DEGENERE." 

690 PAUSE 50 ,„ , 

691 PRINT RT 21,9;"coniinui? (y 
/n ) " 

692 LET i$■INKEY$ 

693 IF i**"n " THEN CLS : PAUSE 
30: PRINT RT 10,13;"CIRO !": STOP 

69* IF it<>"y" THEN GO TO 692 
695 GO TO 60 
700 REM stampa risultati 
705 BEEP .5,-20 , „ m 

710 FOR n *1 TO 3: IF a(n)*0 THE 
N PRINT INK l;RT 10+Xq,INT (10.* 
*n-9); e (n) 

715 IF fr*0 THEN GO SUB 805 
720 IF d(n)=0 AND fr*0 THEN PRI 
NT INK 1;RT 15+Hq,INT (10.**n-9) 

;d; CHR* 1*7;h;"' ,i;CHR* 1*8: CO 
TO 725 

722 IF d(n)*0 THEN PRINT INK li 
RT 15 + K.g, int (i0.**n-9) ; m (n) 

725 NEXT n , „ , 

730 IF sq=l THEN LET Kq = l: GO S 
UB 760: PRINT INK 2;RT 19,0;"C'e 


Seguito listato I. 

una seconda soluzione!": PAUSE 
100: GO TO *25 
7*0 GO SUB 750: CO TO 690 
750 REM subroutine canceliazion 

*760 FOR y*18 TO 21: FOR X*0 TO 
31: PRINT RT y ,x; " ": NEXT X : NE 


-XT- 


RET U R N 


800 REM trasformazione angoli i 
n unita' sessagesimale o centesi 

"'lèi IF fr<>0 THEN GO TO 820 
805 IF fl**0 THEN LET m(n)=10*m 

( 810 * 1 2 * * * * * * 9 LET d=INT min): LET ft*min) 
-INT m(n): LET h *INT n60 + fl)*ft 
): LET i=INT i . 5+ (60+f U*(1.60 + fl 
)*ft-INT ( (60+fl)*ft))) : GO SUB 
330 

320 RETURN , 

830 IF i> =60 +fl THEN LET h*h+l: 
LET i*i-60-fi: GO TO 830 
8*0 IF h > *60 + fl THEN LET d=d+l: 
LET h =h-60-fi: GO TO 8*0 

850 RETURN j , ,„.„_ 

900 rem costruzione del tnango 

^ 9 10 PLOT 8,119: DRRU 56,*9: DRR 
U 80,-*9: DRRU -136,0 
920 REM costruzione della tabel 

925 PLOT 1,33: DRRU 25*, 0: DRRU 
0,*0: DRRU -25*,0: DRRU 0,40: D 
dùm 254 0 

930 PlÓT 1,32: DRRU 25*,0: DRRU 
0,80: DRRU -25*,0: DRAU 0,-80. 
PLÓT 1,63. DRRU 25*,0^ DRRU 0,9: 

DRRU -25*,0: DRRU 0,31: DRRU 25 
*,0 PLOT é* ,32: DRRU 0,80: PLOT 
i72,32 : DRRU 0,80 
935 PLOT 2,32: DRRU 0,80: PLOT 
85,32: DRRU 0,80: PLOT 173,32: D 
RRU 0,80: PLOT 25*,32: DRRU 0,80 
937 PRINT RT 0,0; 

9*0 REM indicazioni 
950 PRINT RT *,5;"a ;RT *,12, b 
“;RT 6 , 8 ;"c";RT 8,5, a ;RT 8,15, 
" b" ; RT 8 ,25, " C " ; RT 8 , 8 , * ; RT 8 , 

16, "=", RT S a 26; f, =" 


900 P^ìINT At 13,5; CHR* 1**,AT | 
,15;CHR* 1**,RT 13,15;CHR* 1*5; fi 
■f 6,3; CHR* 1*5, RT Ì3,è5;CHR* 1*6 

; 970^Ar ÌnT^^T ^13,6; " *" ; RT 13,16; 


delle fasi l’osservazione delle pro¬ 
prie terne avverrà sfruttando la sim¬ 
metria circolare suddetta (uso di ci¬ 
cli FOR-NEXT anche concatenati). 
Un altro aspetto riguarda i casi di 
impossibilità: il numero di essi non è 
piccolo per il calcolatore, per il qua¬ 
le l’“ovvio” non esiste. Ad esempio, 
il programma dichiara impossibile 
la risoluzione del triangolo anche 
quando, per errore, si inseriscono 
per due angoli valori tali da dare 
come somma un angolo superiore 


ad un angolo piatto. Può succedere, 
invece, che con i dati disponibili si 
possano formare due triangoli non 
sovrapponibili; il problema ha allo¬ 
ra due soluzioni: il calcolatore avvi¬ 
serà e riporterà nella tabella i nume¬ 
ri che caratterizzano la seconda so¬ 
luzione al di sotto di quelli della pri¬ 
ma. 

Caratteri grafici 

Le linee 42-45-50 definiscono i ca¬ 


ratteri a, (3, y, °, ”. Come è noto, per 
colorare di inchiostro in modo op¬ 
portuno parte dei 64 pixel dedicati 
ad ogni carattere, si adoperano i 
simboli 1 per il pixel inchiostrato e 0 
per quello non inchiostrato. I 64 pi¬ 
xel sono suddivisi in 8 righe; a cia¬ 
scuna riga corrisponde quindi un 
numero binario di 8 bit. 
NeU’inserire ciascuna riga si deve far 
precedere il numero binario dalla 
funzione B1N. È scomodo, però, 
battere 8 BIN e 64 volte il tasto 0 o 1. 
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Risoluzione triangoli 
_con lo Spectruni 




Seguilo listalo I. 

RT 13,26; „ 

980 PRINT RT 0,24.; "N . B . " , RT 2,1 

8,"* e' modo G +R",RT 3,18;"P e' 
modo G +B";rt 4,iè,")f e' «Odo G 
+ C": IF f f »1 THEN PRINT hT 5,18 
;"Sistema rad.": GO TG 987 

ORI TF fl*0 THEN PRINT RT 5,18, 




"Sist. sessag.”: GO Tù 987 

983 PRINT RT 5 , 18 ;"Sist. centes 

"985 REM introduzione deidati 

987 DIM l $(3,7) : LET h$= abC*-pT 
"• LET i$="000000": DIM r(3) 

990 PRINT RT 18 , 0 ;"Indica i tre 

/ ri 

sultano noti (senza usare separa 
tor i ) : 

991 INPUT ;a$ 

992 IF LEN a$<3 OR LEN a$>3 THE 

N GO TO 991 

993 IF a$(l)*a$(2) OR a$ (1) =a$ ( 

3) THEN GO TO 991 , _ 

994 IF a$(2)=a$(3) THEN GO TO y 
91 

995 IF *$="*£*" THEN GO TO 600 
1000 FOR b=l TO 3: LET U=0: FOR 
n=l TO 6: IF a $ ( b) =h $ (n ) THEN LE 

T i$(n)=h$(n): LET U=1 „ „ 

1005 NEXT n: IF U=0 THEN GO TO 9 
91 

1010 NEXT b ... 

1011 FOR n=l TO 3: IF x$tn)="0" 
THEN PRINT RT 8,7 + 10* in-1) ; "? : 

GO TO 1014 

1012 IF n <3 THEN CIRCLE 43+(n-l) 
*56,139,6: GO TO 1014 

1013 CIRCLE 68,124,6 

1014 NEXT n 

1016 FOR n =4 TO 6: IF i$(n)="0" 
THEN PRINT RT 13,7 + 10* (n-4) ;: 

GO TO 1019 

1017 IF n<6 THEN CIRCLE 124-(ri-4 
)*98,124,6: GO TO 1019 

1018 CIRCLE 67,156,6 

1019 NEXT n ... 

1025 PRINT RT 18 ,0< " Se r i V x le ffii 
sure degli elementi noti;queile 
degli angoli,come negli e s e » p x : 4 
8°56"=0480056; 12'8''=0001208; 135° 

=1350000." 

1030 FOR n=l TO 3 

1031 IF i$ln)<>"0" THEN INPUT (ì 
$ (n)+" = ");a (n): go to 1033 

1032 GO Tu 1037 




Seguito listato 1. 

1033 IF a(n)=0 THEN GO TO 670 

1034 IF a(n ) <0 THEN GO TO 1031 

1035 PRINT RT 10,INT (10.4*n-9); 
a in) 

1037 NEXT n 

1040 FOR n =4 TO 6: IF i$(n)="0" 
THEN LET r(n-3)=n-3: GO TO 1048 



1041 INPUT li $ ih) + = > , z $ : ir uc 

N Z$<>7 RND fr=0 THEN GO TO 1041 

1042 LET l $ in-3) =Z $ : IF fr =0 RND 
fl=40 THEN GO TO 1150 

1043 IF f r = 1 THEN GO TO 1070 

1044 IF 1$ (n-3) >"1800000" THEN G 

0 TO 1041 

1045 IF URL l$in-3)*0 OR l$(n-3) 
=”1800000" THEN GO TO 670 

1046 LET n=n-3: GO SUB 1080: GO 
SUB 830: GO TO 1095 

1047 PRINT RT 15,INT (10.4* in-3) 

-9),d;CHR$ 147;h; . ,i;CHR$ 148 

1048 NEXT n 

1049 IF fr<>0 THEN GO TO 1065 

1050 FOR n = l TO 3; IF rinion RN 

D fi 040 THEN GO SUB 1080: GO SU 

B 1110 

1055 IF r in) ori RND f l =40 THEN L 
ET d in)=d(n ) *PI/180 

1060 NEXT n 

1065 RETURN 

1070 LET d (n-3) =URL Z$: IF d(n-3 
) <0 OR d in-3) >PI THEN GO TO 1041 
1072 IF d in-3) =0 OR d (n-3) =PI TH 
EN GO TO 6S0 

1074 PRINT RT 15,INT (10.4*(n-3) 
-9) ;d in-3) : GO TO 1048 

1080 LET d=URL l $ (n ) (1 TO 3): LE 

T h =URL l$(n) (4 Tù 5): LET i =URL 
1 $ (ni (6 TO 7) : RETURN 

1095 LET n=n+3: IF d>=180 OR URL 
l $ in-3) <0 THEN GO TO 1041 

1097 IF d = 180 THEN GO TO 680 

1093 GO TO 1047 

1100 REM trasformazione angoli i 
n unita' radianti 

1110 LET d (n) * (d+h/60 + i /3600) *PI 
/ 180 : RETURN 

1145 REM trasformazione angoli i 
n forma sessadecima le 

1150 LET n=n-3: GO SUB 1080: LET 
d in ) = .9*(d+h/100 + i/10000) : IF d 
in)=0 THEN GO TO 680 

1160 IF d(n)<0 OR din) >160 THEN 
LET n =n +3 : GO TO 1041 

1170 LET n*n +3 : GO TO 1097 



Ecco perché sono stati trasformati 
questi numeri binari in numeri deci¬ 
mali. 


Nel presente programma i 5 caratte¬ 
ri grafici sono definiti in un unico 
ciclo FOR-NEXT, elencando gli ele¬ 


menti di DATA in verticale anziché 
in orizzontale (cioè i primi 5 numeri 
del DATA della linea 50 non corri¬ 
spondono alle prime 5 righe del 1" 
carattere grafico, ma ciascuno alla 
prima linea di ogni carattere). 


Il programma 

Inizialmente il calcolatore chiede 
(linea 55) quale sistema di misura 
angolare l’utente utilizzi; il pro- 



MATRICI USATE NEL PROGRAMMA 

a(3) 

Matrice lati. 

a(3) 

Matrice lati (supplementare). 

d(3) 

Matrice angoli. 

q(3), m(3) 

Matrice angoli (supplementari). 

r(3) 

Matrice deposito temporaneo. NeH'inserimento dei simboli degli 
elementi noti ha valore uguale all’indice quando vi corrisponde un 


elemento non noto. 

l$(n,7) 

Contiene la misura degli angoli noti. 
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VARIABILI USATE NEL PROGRAMMA 

g Variabile in READ nella definizione dei caratteri grafici, 
h Flag nel procedimento ‘primo caso’; deposito temporaneo che contie¬ 
ne il numero rappresentante i ‘primi’ degli angoli, 
i Contiene il numero che rappresenta i ‘secondi’ degli angoli. 
o,p Variabili di rotazione. 

q,r,s Depositi temporanei. 

u Se il suo valore rimane zero, non si è digitato neanche uno dei simboli 
a,b,c, a, P, y. 

\,y Coordinate punti del grafico. 

d Contiene il numero che rappresenta i ‘‘gradi’’ degli angoli, 

fi Se il suo valore è 40, il sistema di misura angolare è centesimale, se 

vale 0, il sistema è sessagesimale, 
fr Quando vale 1 il sistema di misura angolare e radianti, 

ft Parte decimale degli angoli espressi in unità sessadecimale o centesi¬ 

male. 

sq Quando vale 1, il problema ammette un’altra soluzione, 
kq Vale I quando il problema ammette due soluzioni; sposta di una riga 
verso il basso la posizione di scrittura nella tabella. 
a$ Contiene i simboli degli elementi noti. 

i$ Stringa a 6 elementi (dei quali 3 nulli). Alla fine contiene il significato 

del tasto premuto, per continuare o meno nell’uso del programma. 
x$ Contiene il significato del tasto premuto durante la scelta del sistema 
di misura angolare. 

zS Deposito temporaneo di angoli. 

b,c,n Variabili nei FOR-NEXT. 



gramma funziona con tre unità di 
misura: sessagesimale, centesimale, 
radianti. 


La scelta del sistema di misura per¬ 
mane anche nelle utilizzazioni suc¬ 
cessive. 

La parte riguardante l’introduzione 
dei dati (dalla linea 985) risulta mol¬ 
to comoda per l’utente, ma di diffici¬ 
le interpretazione nel listato. Dap¬ 
prima il calcolatore chiede la digita¬ 
zione delle tre grandezze (esempio 
battere “a b a”) che risultano note, 
quindi chiede il loro valore numeri¬ 
co. 

Per informare però il calcolatore di 
quali grandezze non sono note (vedi 
aspetto matematico), si sfrutta an¬ 
cora una volta la convenzione di 
considerare uguali a zero le misure 
degli elementi incogniti: dopo aver 
inizializzato le stringhe “abcaPy” e 
“000000”, si pone a confronto cia¬ 
scuno degli elementi della stringa 
dei tre termini noti con gli elementi 
di “abcaPy”; quando risulta l’iden¬ 
tità, ad esempio per c, la stringa de¬ 
gli zeri diventa “OOcOOO” e così via. 
Terminato il confronto quest’ultima 
stringa conterrà i tre elementi noti e i 
tre zeri: la loro posizione fornirà al 
calcolatore l’informazione su quali 
elementi del triangolo sono noti e 
quali non lo sono. 

Ricevuta tale informazione il cal¬ 
colatore provvede a visualizzare gli 
elementi noti sul triangolo, dise¬ 
gnando un cerchietto attorno ai sim¬ 
boli corrispondenti e, per maggior 
completezza, pone dei punti di do¬ 
manda a fianco di quelli incogniti 
nella tabella. A questo punto il cal¬ 
colatore chiede le misure degli ele¬ 
menti noti (linee 1030 c 1041) me¬ 
morizzandoli in due matrici formate 
da tre elementi ciascuna (matrice la¬ 
ti e matrice angoli). Attenzione al¬ 
l’introduzione della misura degli an¬ 
goli in unità sessagesimale o centesi¬ 
male: per facilitare l’utente, per evi¬ 
targli cioè l’uso dei simboli °, ’, ”, il 
programma accetta solo stringhe di 
7 cifre ( 1 1 - 2 a - 3 a per i gradi, 4 a - 5' 


per iprimi, 6“ - T per i secondi, esem¬ 
pio “0 45 00 00” per 45°). 

La linea 1080 provvederà poi a sepa¬ 
rare tali misure, mediante la funzio¬ 
ne VAL applicata a parti della strin¬ 
ga inserita. 

Molte linee risultano occupate da 
test di controllo dell’esattezza del- 
l’inserimento; riguardano il numero 
degli elementi noti (997), l’apparte¬ 
nenza dei simboli ai 6suesposti (flag 
u alle linee 1000 e 1005), la ripetizio¬ 
ne di uno stesso simbolo (linee 993, 
994), la lunghezza della stringa an¬ 
golare (1041) e l’appartenenza della 
misura degli angoli al range corretto 
(angolo nullo - angolo piatto). 

Terminata questa prima fase ini¬ 
zia la parte dedicata agli indirizza¬ 
menti ai 4 “casi" (lince 75, 83, 86, 
90). Quattro cicli FOR-NEXT pas¬ 
sano in rassegna i 19 prodotti fra gli 
elementi che costituiscono le possi¬ 
bili terne; uno solo risulterà non nul¬ 


10 e fornirà l’adeguato indirizzo (alle 
linee 98 o 200 o 300 o 400). Natural¬ 
mente, l’indice del ciclo al quale la 
ricerca si è fermata verrà sfruttato 
dalle routine risolutive, per adattare 

11 procedimento generale agli ele¬ 
menti effettivamente noti. 

La routine che riguarda il “secondo 
caso” è quella meno banale, perché 
deve considerare casi di impossibili¬ 
tà (linea 402), di una soluzione, di 
due soluzioni (linea 403, flag sq). 
La visualizzazione dei risultati av¬ 
viene, qualunque sia il procedimen¬ 
to di risoluzione adottato, dalla li¬ 
nea 700; ciò grazie, ancora una vol¬ 
ta, alla convenzione di considerare 
uguali a zero gli elementi incogniti. 
Infine il posizionamento dei dati e 
dei risultati sulla tabella viene pilo¬ 
tato dal valore intero di una funzio¬ 
ne lineare. ■ 
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un Commodore all’altro 


Trasferimenti, merge e 
... qualche trucco! 

di Umberto Giovanni Barzaghi 


I nnanzi tutto, una premes¬ 
sa: per trasferimento non 
intendo la traduzione di 
un programma che, scritto in origi¬ 
ne ad esempio per il CBM 4032 per¬ 
metta di adattarlo al C 64. Una tra¬ 
duzione automatica di questo tipo 
dovrebbe essere virtualmente im¬ 
possibile (quando si tratta di calco¬ 
latori è meglio non fare affermazio¬ 
ni troppo arrischiate, a scanso di 
brutte figure), poiché coinvolgereb¬ 
be locazioni di memoria le cui fun¬ 
zioni non sono necessariamente le 
stesse per i vari tipi di calcolatori. 
Per alcune locazioni di memoria, 
magari, la traduzione sarebbe bana¬ 
le (ad esempio le locazioni di memo¬ 
ria che controllano Io schermo, che 
differiscono, per calcolatori con lo 
stesso formato, solo di un valore nu¬ 
merico costante); per altre bisogne¬ 
rebbe tenere in conto le differenti 
caratteristiche, ad esempio per 
quanto riguarda la gestione colore 
video. 

Le procedure illustrate in questo ar¬ 
ticolo (una serie di semplici opera¬ 
zioni da effettuare in modo diretto, 
da tastiera, con Putilizzo della unità 
nastro) hanno lo scopo di trasferire 
fisicamente le righe BASIC che 
compongono un programma da un 
calcolatore all’altro. Queste stesse 
procedure possono essere utilizzate 
per effettuare “merge”, cioè “fusio¬ 
ni”, di programmi diversi su di uno 


stesso calcolatore (anche se prove¬ 
nienti da calcolatori diversi). In ef¬ 
fetti, l’idea di verificare se un simile 
procedimento era attuabile, è stata 
ricavata da un vecchio articolo, ap¬ 
parso su Bit anno 3 - n. 10, che illu¬ 
stra come effettuare simili operazio¬ 
ni per i computer delle prime due 
generazioni Commodore. 

Ho avuto inoltre modo di speri¬ 
mentare di persona, che la serie di 
operazioni suddetta può essere uti¬ 
lizzata, benché con pesanti limita¬ 
zioni, per tentare di ovviare ad alcu¬ 
ni inconvenienti che, a volte, si pre¬ 
sentano nella registrazione di pro¬ 
grammi su nastro. 

L’impossibilità di caricare su di un 
VIC 20 o su di un C 64, un program¬ 
ma registrato, in origine, da un PET 
2001 o un CBM 3032 o 4032, è dovu¬ 
ta al fatto che la registrazione dei 
programmi su nastro per i calcolato¬ 
ri della Commodore è caratterizzata 
dalla presenza di un “header”, vale 
a dire una serie di note modulate, 
che possono essere ascoltate inse¬ 
rendo la cassetta su cui il program¬ 
ma è registrato, in un comune regi¬ 


stratore. Questo header ha la fun¬ 
zione di segnalare l’inizio del pro¬ 
gramma, oltre ad alcune altre carat¬ 
teristiche, che qui non interessano. 
Il problema è rappresentato dal fat¬ 
to che, contrariamente a quanto ac¬ 
cade con altre macchine, la modula¬ 
zione che caratterizza gli header del 
C 64 differisce da quella del VIC 20, 
ed entrambe non coincidono con 
quelle dei calcolatori delle prime ge¬ 
nerazioni Commodore (quali PET 
2001 e 3032 o CBM 4032 e serie 
8000). Un modo banale di aggirare 
questo inconveniente è, ovviamente, 
rappresentato dalla registrazione 
degli stessi programmi su disco, in 
quanto questo genere di registrazio¬ 
ni non presenta “header”. Ma quan¬ 
do non si dispone di unità disco, per 
uno o per entrambi i due calcolatori 
coinvolti nel trasferimento? 

Il “cavallo di Troia” della situa¬ 
zione è rappresentato dalla registra¬ 
zione del programma su nastro co¬ 
me se si trattasse di un file-dati. Il 
fatto presenta, ovviamente, un evi¬ 
dente handicap: non si possono uti¬ 
lizzare registrazioni su nastro di 






















































































programmi in forma normale, ed è 
quindi necessario poter disporre di 
entrambi i calcolatori per poter ef¬ 
fettuare le registrazioni in modo op¬ 
portuno. 

Ciò che differenzia i vari tipi di cal¬ 
colatori è la locazione di memoria 
sollecitata per acquisire la registra¬ 
zione da nastro. Ma vediamo le va¬ 
rie procedure in dettaglio: 


Procedura 1: il salvataggio 

Passo 1 - Accendere il calcolatore a 
cui appartiene in origine il program¬ 
ma che si vuole trasferire, e che d’o¬ 
ra in avanti chiameremo “donato¬ 
re”, e caricarvi il programma desi¬ 
derato. 

Passo 2 - Inserire una cassetta di 
lunghezza opportuna nel registrato- 
re. Riavvolgere e mettere in stop l’u¬ 
nità nastro. 

Passo 3 - Battere da tastiera, in mo¬ 
do immediato: 

OPEN1, 1, 1 : CMD1 : LIST 
I comandi di questa riga comporta¬ 
no: l’apertura del file logico 1, sul 
device 1 (l’unità nastro principale) 
in scrittura (1); il cambiamento del 
device di output del sistema (che per 
default corrisponde al video), essen¬ 
do il numero associato alla istruzio¬ 
ne CMD, corrispondente al numero 
assegnato al file logico; l’esecuzione 
del listato sul nastro. Infatti, dopo il 
messaggio PRESS PLAY & RE¬ 
CORD, il nastro cominccrà a scor¬ 
rere senza che il comando LIST in¬ 
fluisca sullo schermo, come acca¬ 
drebbe normalmente. Da notare 
che, se non si desidera trasferire un 
intero programma da un calcolatore 



all’altro o se si tratta di registrazioni 
da utilizzare per merge in altri pro¬ 
grammi,è possibile specificare, co¬ 
me in una normale istruzione di 
LIST, la sezione di programma che 
si desidera registrare; l’unica limita¬ 
zione è data dal fatto che il campo 
specificato nell’istruzione deve esse¬ 
re unico. E cioè possibile aggiungere 
alla riga precedente la specifica 10- 
200, se si desidera registrare le sole 
righe da 10 a 200 del programma 
“donatore”. 

Non è però possibile registrare le 
righe da 10 a 50 e da 100 a 200, 
by-passando le eventuali righe da 50 
a 100. 

Passo 4 - Fate molta attenzione! 
Quando il registratore si sarà ferma¬ 
to non toccate assolutamente i tasti 
ma eseguite le due normali istruzio¬ 
ni di chiusura di un file, cioè: 

PRINT # I : CLOSEI 
Passo 5 - Premere stop e riavvolgerc 
la cassetta. 

Questa cassetta, contenente il file 
così registrato verrà utilizzata per 
trasferire il programma su qualsiasi 
altro calcolatore Commodore, o, 
nel caso in cui si tratti di una parte di 
un merge, tutte le volte che si deside¬ 
ri aggiungere le righe così registrate 
ad un programma. 


Procedura 2: il caricamento 
o fusione 

La prima parte di questa procedu¬ 
ra differisce sostanzialmente nella 
parte iniziale in base al fatto che si 
desideri trasferire un programma da 
un calcolatore ad un altro oppure 
inserire in un programma pre¬ 
esistente delle righe (ad esempio una 
subroutine) tratte da un altro pro¬ 
gramma. 

Nel primo caso è necessario accen¬ 
dere il calcolatore “accettorc” ed 
eseguire i passi sottoindicati; nel se¬ 
condo bisogna innanzi tutto carica¬ 
re il programma cui si desidera ag¬ 
giungere la routine registrata su na¬ 
stro ed assicurarsi che i numeri di 


riga della routine stessa non vadano 
ad interferire con parti pre-esistenti 
del programma stesso. E quindi ne¬ 
cessario fare attenzione quando si 
creano file programmi per il merge. 
Se il programma cui viene fatta rag¬ 
giunta ha delle righe le cui numera¬ 
zioni corrispondono a quelle della 
routine da aggiungere, queste ver¬ 
ranno rimpiazzate da quelle, ma, se 
la numerazione non dovesse corri¬ 
spondere il risultato sarebbe di tro¬ 
varsi un programma con righe del 
programma originale inframmezza¬ 
te alle righe della routine aggiunta, 
con conseguenti disagi. Assicuratevi 
quindi che non esistano già delle ri¬ 
ghe con numerazione analoga a 
quella della subroutine che si vuole 
aggiungere e provvedete solo in se¬ 
guito a modificare riferimenti alla 
chiamata a subroutine e ad elimina¬ 
re le eventuali righe superflue. 

Una delle due operazioni prece¬ 
denti costituisce, quindi il Passo 1. 
Passo 2 - Inserire nel registratore la 
cassetta creata con la procedura 1. 
Non battere assolutamente NEW, 
né, logicamente, spegnere il calcola¬ 
tore. 

Passo 3 - Battere, da tastiera, in mo¬ 
do immediato: 

OPEN 1 

Il sistema risponderà chiedendo 
“PRESS PLAY ON TAPE # 1”. 
Eseguire quanto richiesto; il calcola¬ 
tore leggerà quindi l’etichetta del 
nastro e si arresterà, pronto per leg¬ 
gere il primo blocco di dati. 

Passo 4 - Questa operazione costi¬ 
tuisce il punto topico del program¬ 
ma e differenzia i vari tipi di calcola¬ 
tore. 

A questo punto, infatti si dovrà ese¬ 
guire tante volte quante sono le ri¬ 
ghe che costituiscono il programma 
(o sezione di programma) da carica¬ 
re da nastro, il comando che attiva 
l’input device. 

Per tutti i calcolatori della linea 
Commodore il formato dell’istru¬ 
zione è: 

POKE NL, 1 

Dove NL indica la locazione di me- 
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moria. Le differenze sono date ap¬ 
punto da questo indirizzo; esso, per i 
calcolatori della prima generazione 
Commodore (come il vecchio PET 
2001 ) o genericamente forniti di vec¬ 
chie ROM, corrisponde ad un valore 
numerico di 611; per i calcolatori 
della seconda generazione (conte il 
CBM 4032) o, più in generale, forni¬ 
ti di nuove ROM, NL vale 175; men¬ 
tre, sia per il VIC 20 che per il C 64 è 
necessario sostituire ad NL nell’i¬ 
struzione suddetta il valore numeri¬ 
co 153. Supponendo, quindi di voler 
caricare un programma, sotto for¬ 
ma di file dati, qualunque sia la sua 
provenienza, su di un C 64, sarà ne¬ 
cessario battere l’istruzione: 

POKE 153, I 

tante volte quanto sono le righe del 
programma “donatore”. 
L’operazione suddetta risulterà, 
quindi tanto più laboriosa, quanto 
più lungo sarà il programma da cari¬ 
care (per un programma attorno ai 
20 Kbyte pre-RUN, la noiosa opera¬ 
zione dura una ventina di minuti!) e 
può dare luogo ad inconvenienti fa¬ 
cilmente evitabili seguendo le istru¬ 
zioni sotto-elencate. 

Per determinate ragioni di sistema, 
non è possibile inserire la suddetta 
istruzione di POKE in un ciclo POR 
... NEXT che abbia, come limite su¬ 
pcriore il numero di righe da carica¬ 
re da nastro. E quindi consigliabile 
eseguire il Passo 2 della seconda 
procedura; poi, quando ricompare il 
cursore, premere CLEAR (per puli¬ 
re lo schermo) e digitare sulla prima 
riga il comando di POKE opportu¬ 
no, a seconda del tipo di calcolatore; 
quindi battere in successione i tasti 
di RETURN e HOME. 

Non è, tra l’altro, necessario ri¬ 



cordare il numero delle righe inte¬ 
ressate. Se si è eseguita esattamente 
la procedura n. 1, quando i dati su 
nastro saranno terminali, compari¬ 
rà sul video un messaggio di errore: 

? OUT OF DATA ERROR 
che segnala, semplicemente, che non 
si sono più dati da caricare. 

A questo punto, nella memoria del 
calcolatore “accettore” è contenuto 
il programma trasferito (od il pro¬ 
gramma originale più le aggiunte 
volute, nel caso di fusione di più 
programmi) in forma normale; vale 
a dire può essere listato, salvato su 
nastro o su disco, modificato a pia¬ 
cimento o, addirittura, mandato in 
esecuzione. Fate comunque atten¬ 
zione, che se il trasferimento è avve¬ 
nuto tra calcolatori con caratteristi¬ 
che nettamente diverse, ed il pro¬ 
gramma utilizza molti riferimenti a 
locazioni di memoria (vale a dire 
PEEK e POKE), il comportamento 
del calcolatore sarà decisamente ir¬ 
regolare e potrebbe persino com¬ 
portare il blocco completo (DEAD- 
LOCK) del sistema, costringendovi, 
quindi, a spegnere il calcolatore “ac¬ 
cettore” e ripetere per intero la pro¬ 
cedura 2. Accertatevi, quindi, di 
aver fatto una copia su nastro ó su 
disco del programma ottenuto, pri¬ 
ma di mandarlo in esecuzione, in 
modo da poter sempre disporre di 
una versione per le modifiche e gli 
adattamenti necessari. Ad esempio, 
trasferendo programmi dal CBM 
4032 al C 64, potreste voler aggiun¬ 
gere il controllo del colore (suppo¬ 
nendo di non avere nessun riferi¬ 
mento diretto alle locazioni di me¬ 
moria). Ovvie limitazioni al sistema 
sopra descritto sono date dalle ri¬ 
spettive capacità di memoria dei cal¬ 
colatori coinvolti; non tentate di ca¬ 
ricare un programma da 30 Kbyte 
che gira su CBM 4032 su di un VIC 
20, privo di espansione di memoria, 
non vi riuscirebbe ... 

Il sistema sopra descritto può ap¬ 
parire laborioso e troppo complica¬ 
to, ma, a meno di non disporre delle 
necessarie unità disco, è l’unica al¬ 
ternativa possibile alla paziente ri¬ 


copiatura dei programmi; e, vi assi¬ 
curo, con programmi di una certa 
mole, la consapevolezza di aver già 
fatto una volta l’intero lavoro, an¬ 
che se per un altro calcolatore, rap¬ 
presenta una tentazione troppo for¬ 
te. 

Il sistema suddetto può inoltre rive¬ 
larsi utile per ovviare ad eventuali 
registrazioni su nastro difettose, co¬ 
me vedremo nel prossimo paragra¬ 
fo. 


Un utile trucco 

Vi sarà magari capitato di aver 
appena terminato la copiatura di un 
jumbo-program da Bit e Personal 
Software (magari uno di quelli del 
sottoscritto) oppure di aver termi¬ 
nato il programma che costituisce il 
vostro orgoglio di programmatore, 
decidete di registrarlo su nastro 
(non avete unità dischi!) e di utiliz¬ 
zare una vecchia cassetta - ad esem¬ 
pio, perché, come il sottoscritto, sie¬ 
te troppo pigro per andarvene a 
comprare di nuove -; registrate, veri¬ 
ficate e, tutto è a posto ma ... quan¬ 
do vi apprestate, il giorno successi¬ 
vo, a mostrare con orgoglio agli 
amici il risultato delle vostre fatiche, 
il nastro si è smagnetizzato e non 
potete caricare il vostro program¬ 
ma. Come fare per non restare con 
un palmo di naso? 

Innanzi tutto, per evitare di creare 
false illusioni, è necessario specifica¬ 
re che, non in lutti i casi è possibile 
operare efficacemente il salvatag¬ 
gio, ad esempio quando i danni al 
nastro riguardano la parte centrale 
del programma, per cui il carica¬ 
mento si interrompe bruscamente 
ed un eventuale istruzione di LIST 
mostra un programma gravemente 
mutilato che, tutto a un tratto, mo¬ 
stra strani numeri di riga misti a 
pi-grechi et similia... In questo caso, 
purtroppo, non c’è più nulla da fare 
(se non ricordarsi, d’ora in avanti, di 
utilizzare cassette nuove ...). 
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Gaetano Marano 
77 PROGRAMMI PER SPECTRUM 

Dalla Grafica alla Business Grafica, dalla musica 
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le possibilità offerte dal più piccolo dei computer 
150 pagine a colori L. 16.000 
Codce 555A 
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Vi sarà, a volte capitato, però, di 
ottenere al termine del caricamento 
un segnale di ? LOAD ERROR, di 
avere effettuato un LIST e di non 
aver riscontrato alcuna irregolarità 
nel programma; solo che non potete 
farne niente, né salvarlo (su nastro o 
su disco), né modificarlo e, se tenta¬ 
te di mandarlo in esecuzione, tutto si 
blocca ... È come nel supplizzio di 
Tantalo, il vostro programa è lì, lo 
potete vedere, copiare anche, ma¬ 
nualmente s’intende, ma non potete 
utilizzarlo. 

In casi del genere, lo so per esperien¬ 
za personale, può essere utilmente 
sfruttata la registrazione su nastro 
sotto forma di file dati, vale a dire le 
procedure summenzionate. 

Casi come quello da me schematiz¬ 
zato avvengono quando, per sma¬ 
gnetizzazione del supporto magneti¬ 
co o altra causa, l’“header” iniziale 
del programma registrato su nastro, 
risulta di volume troppo basso per 
essere recepito dal calcolatore. Il 
computer, in questi casi, riesce a ca¬ 
ricare correttamente le righe BASIC 
da nastro, ma non ha semplicemente 
idea di dove il programma inizi. 

Se vi capita un caso del genere, ma, 
badate bene, il listato deve essere 
completo, dopo aver ottenuto il ? 
LOAD ERROR, listate il program¬ 
ma per assicurarvi che ci sia tutto, 
quindi operate come se si trattasse di 
una normale operazione di trasferi¬ 
mento o di merge, su nastro, vale a 
dire seguite le procedure suddette. 

Se non commetterete errori, po¬ 
trete ovviare, a prezzo di una venti¬ 
na di minuti di noiosa routine, ai 
vostri problemi. Oh, a proposito, ri¬ 
cordatevi di cambiare cassetta. ■ 
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ariche 



Come apprezzare 

le leggi dell’elettrostatica 

giocando 

con lo Spectrum 


di Fi anco Andreotta e Carlo Testa 


I l titolo potrebbe ingannare; 
non stiamo parlando delle 
famose cariche del 7° Caval- 
leggeri: questo programma riguarda 
cariche elettriche, ioni positivi e ne¬ 
gativi. 

In Natura le interazioni fra cariche 
sono regolate dalla legge di Cou¬ 
lomb. la quale afferma che la forza 
di repulsione o di attrazione fra un 
elettrone ed uno ione è inversamente 
proporzionale al quadrato della di¬ 
stanza fra le due particelle. 

In “Cariche” questa legge è stata 
adattata per dare più dinamica all’a¬ 
zione, ma il concetto rimane lo stes¬ 
so. 

Non sono richiesti riflessi e scatti 
brucianti, ma la capacità di effettua¬ 
re previsioni balistiche “ad occhio". 
Lo scopo del gioco è di fornire ad un 
piccolo elettrone, lanciato dall’an¬ 
golo inferiore sinistro del campo, la 
giusta direzione per arrivare il più 
vicino possibile all’angolo opposto, 
cioè il superiore destro. 

Se non ci fossero gli ioni, la direzio¬ 
ne potrebbe essere specificata diret¬ 
tamente con le coordinate del punto 
da colpire, per esempio 255, 175 per 
il punto in alto a destra. 

Si noti che queste possono essere 
espresse in qualunque unità di misu¬ 
ra (25, 17 è equivalente a 255, 175): 
infatti conta il loro rapporto e non il 
loro valore assoluto. Per “puntare” 



PRINCIPALI ROUTINE 

30 - 60 

Intestazione grafica. 

100 

Dimensionamento vettori e matrici. 

1000 - 1090 

Routine principale per il movimento dell’elettrone e per la gestio¬ 
ne delle interazioni con le altre cariche. 

2000 - 2160 

Disegna il campo di gioco, posiziona casualmente e traccia gli 


ioni. 

3000 - 4000 

Controllo della zona di impatto dell’elettrone e generazione del 
conseguente suono. 

5000 - 5040 

Routine di fine partita. 

6000 - 6180 

Inizializzazione delle variabili e introduzione dei dati riguardanti 


i giocatori ed il livello di gioco. 

7000 - 7145 

Attribuzione e stampa punteggi. 

7150 - 7200 

Routine che gestisce la rotazione dei turni di gioco. 


Listato I. Listato del programma “Cariche ” redatto interamente in BASIC. 


30 CLS : PRINT RT 3,12;"CRRICH 
E";RT 20,2;"PREMI UN TRSTQ PER I 
NIZIRRE" 

40 CIRCLE 50,80,20; CXRCLE 193 
,80,20 

45 PLOT 40,80: DRRU 20,0: PLOT 
50,70: DRRU 0,20: PLOT 180,80: 
DRRU 20,0 

50 BEEP .1,RND *25 
60 IF XNKEY$ s " " THEN BORDER (R 
ND*7): 00 TO 50 

100 DIM P(4): DIM n$(4,10): DIM 
S (6,3) : 00 SUB 6010 

900 REM “routine per il movimen 
to delie cariche" 

1000 LET X p =7 : LET yp*7 
1005 INPUT : PRINT UH BRIGHT 
1; INK 0;"TURNO DI ";n$(u): PRUS 
E 100: INPUT "X-COORD.= ";xo;" 

Y-coord•« ”;yo 

1010 LET hpsSQR (xo*xo+yo*yo): I 

F hp =0 THEN LET hp=l 

1020 LET XO=XO*S0/hp: LET yOsyo* 

S0/hP 

1030 plot xp,yp 

1040 PLOT XP,yp+l: PLOT XP,yp-l: 

PLOT XP+1,WP: PLOT xp-l,yp 
1050 LET xnaxo: LET yneyo 
1060 FOR i soe TO si; LET X»S(i,l 
) -xp : LET y (i ,2) -yP: LET hp*X* 
x+y*y. LET xn»xn-C9*s (i ,3) *x/hp : 
LET yn=yn-cy*s (i ,3)*y /hp: NEXT 

1065 PLOT INUERSE l;xp,yp+l: PLO 
T INUERSE 1; XP,y P-1: PLOT INUERS 
E 1;XP + 1,yP: PLOT INUERSE l;xp-l 
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Seguito listato I 

, yp 

1070 PLOT INVERSE l;XP,yp 
poxp+xn: LET 
1080 IF XP <1 , 

R gp >174 THEN 


: LET X 

8 r XP >S5s 4 OR yp < 1 0 
GO TO 3010 

10§5 PLOT XP/yp+1: PLOT XP,yp-l: 

PLOT XP +1^ yp: PLOT Xp-l,yp 
1090 PLOT Xp,yp: GO TO 1060 
2000 REM "posizionamento ioni 
2010 CLS 

2020 PLOT Z6,Zt: DRRU 855,Z«: DR 
RU 0,175: DRRU -255,0: DRRU 0,-1 
75 

2030 FOR i=oe TO 13: PLOT XNT (1 
8 .2*i) ,172 : DRRU 0,3: NEXT i 
2040 FOR i=oe TO 7: PLOT 252,22* 
i: DRRU 3,0: NEXT i 
2050 LET h C = f V : LET Sp*tw 
LET P0*-0«: LET Pi =04 
RRNDOMIZE 


= 04 TO Si 

( i,1)«2*INT (RND*125) + 


2060 
2065 
2070 
2080 

3 

2090 LET S(i,2)=2*INT (65*RND)+1 

4 

2100 
2110 _ 

2120 CÌRCLÈ ÌNK' ì; S (i , 1) ,S (i ,2) 

3 

2130 PLOT 
DRRU 4,0 
2140 IF S 
1, S (i 
2150 


FOR 

LET 


LET 

LET 


( i,3)= -P i 
i=Pi*po 


INK l; S (i , 1) -2,S ii ,2) 


(i ,3) s-1 THEN PLOT 
,S(i,2)-2: DRRU 0,4 


INK 


2160 
3000 
3010 
3020 
3030 
3040 
3050 . 

3060 IF 
0: GO TO 


, 1 ) . 

NEXT x 
RETURN 

REM impatto deU'e lettrone 
IF Xp > =255 THEN LET xps255 
IF yp > =175 THEN LET yp = 175 
IF XP<=1 THEN LET XP*0 
IF yp<=l THEN LET yp=0 
PLOT INK 6;xp , yp 
ixp*gp)=0 ThEN 

TO 


301 

b = l 


BEEP 2,-1 


(xp *yp)/2000: BE 


3070 FOR 

EP .03,b: NEXT b _ „ 

3080 FOR b= (XP*yp) /2000 TO 1 STE 
P -1: BEEP .03,b: NEXT b 
3090 LET CsC+1 
4000 GO TO 7000 

5000 REM fine _ ___ 

5020 PRINT RT 20,0;"UN'RLTRfi PRR 
TITR 

5030 PRUSE 0: IF XNKEY$ < >"n" THE 
N GO TO 100 


ad una particolare posizione si può 
usare come riferimento approssima¬ 
tivo la scala disegnata sugli assi, 
contando le divisioni. 

La difficoltà è che ad ogni "man¬ 
che" vengono posizionati sullo 
schermo, in modo casuale, degli ioni 
e questi, a seconda della loro carica 
positiva o negativa, esercitano ri¬ 
spettivamente attrazione o repulsio¬ 
ne sull'elettrone. 

Quando l’elettrone raggiunge il bor¬ 
do del campo viene calcolato il pun¬ 
teggio come prodotto di ascissa ed 
ordinata del punto di impatto. 
Naturalmente, più vicini si è all’an¬ 
golo in alto a destra, più sarà alto il 
punteggio. Per esserne certi, guarda¬ 
te come questo viene calcolato alla 
linea 7010. 

Ovviamente, un impatto sul bordo 
sinistro o inferiore del campo di gio¬ 
co produce un punteggio nullo. 
Sebbene sia possibile giocare da soli, 
il gioco si fa più interessante quando 
si compete con un certo numero di 
amici (il massimo è quattro giocato¬ 
ri, ma è facilmente modificabile). 
Per evitare favoritismi il computer 
provvede a cambiare l’ordine dei 
giocatori perchè, mentre il primo di 
ogni manche si trova di fronte una 
nuova distribuzione di particelle gli 
altri possono trarre vantaggi dai 
suoi errori. 

Il punteggio è cumulativo e vince 
naturalmente chi fa più punti. 

Per correttezza teniamo a precisare 
che l'idea non è originale, ma abbia¬ 
mo preso spunto da un programma 
comparso sulla rivista americana 
Byte per il computer Apple II, pro¬ 
gramma però da noi notevolmente 
trasformato per adattarlo al nostro 
computer. ■ 
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ROMA 

ROMA 

ROMA 

ROMA 

ROM' 


EDP USA ROMA ’84 


La quinta edizione di EDP ROMA si ripropone al selezionato pubblico 
dell’Italia Centromeridionale con un esauriente panorama sulle più 
recenti novità neH'ambito dell'EDP, quali: computer, sistemi di word 
processing e trasferimento dati, software e relativi accessori. 

Come ormai di consuetudine, e quale parte integrante della mostra, 
è stato organizzato, in data 11 OTTOBRE, un seminario di studio 
sull'INFORMATICA GRAFICA, argomento questo di estrema attualità. 
Relatori saranno il Prof. Umberto Cugini del Politecnico di Milano, 
il Prof. Piero Mussio del Dipartimento di Fisica dell'Università 
di Milano e il Signor Giuseppe Vanzetti, noto esperto nel campo del 
Computer Graphics. Data la limitata disponibilità di posti, si prega di 
confermare la partecipazione inviando entro il 5 OTTOBRE, un assegno 
di Lit. 100.000, comprensivo degli atti del convegno. 

L’ingresso alla mostra è gratuito per professionisti, managers ed 
operatori del settore. Per gli studenti è previsto un biglietto di 
ingresso di Lit. 3.000. Gruppi e scolaresche sono ammessi alla 
manifestazione previa prenotazione (entro il 5 OTTOBRE). 

Per ogni ulteriore informazione sul seminario e sulla mostra, 
il ns. Centro è a Vs. disposizione. 

(Tel. Segreteria 02/4696451/2/3 - Telex 330208 USIMC I). 


CENTRO COMMERCIALE 
AMERICANO 


Via Gattamelata 5 - 20149 Milano 
Tel. 02/4696451 
Telex 330208 USIMC I 


Cariche- 

Seguilo listato / 

504-0 CLS : PRINT RT 20,0; "FINE D 
ELLA PRRTITR": STOP 
6000 REM inizio 

6010 LET V 0 11 e =0 : LET U«l: LET C 
ontani: LET ze C0: LET oe=l: LET 
t w =2 : LET C =0 : LET t r «3 : LET f f = 
4: LET fV *5: LET S =0 ; LET C9 =25: 

LET tn *=255 : LET c*9al75: LET S0 = 
10 

6020 BORDER 6: PRPER 6: CLS : IN 
K 0 

6030 INPUT "Quanti giocatori il- 
4.)? " ; h n i 

6031 IF hhi < 1 OR hm>4 THEN GÙ TO 
6030 

6035 IF hm =3 THEN LET nv*9: GO T 
0 604-0 

6037 LET nv =hm *4 

6040 FOR i»l TO hm 

6050 CLS : INPUT "Quale nome? "; 

n$ li ) 

6060 NEXT i 

6160 INPUT "Che livello (1-6)? " 

; s i 

0161 IF Sl<0 OR SI>6 THEN GO TO 
6160 

6170 GO SUB 2010 

6180 RETURN 

7000 rem "punteggio" 

7010 LET npslNT (xp*yp) 

7020 FOR i=1 TO hm 

7030 IF con ta *i THEN LET pii)=p( 

i ) +np 

7040 NEXT i 

7050 LET contaaconta+1 

7060 IF conta<>hm+l THEN LET u=u 

+1: GO TO 1000 

7065 PAUSE 100: CLS : LET U*1 

7070 LET VOlte«volte+1: LET cont 

a al; GO SUB 7150 

7075 PRINT RT 0,10;"PUNTEGGIO" 

7080 FOR ia 1 TO hm: FOR j=l TO 1 

0 

7090 PRINT RT 2*i+2,j;n$(i,j) 

7100 NEXT j 

7110 PRINT RT 2*i+2,20;P(i) 

7120 NEXT i 

7130 IF C*nv THEN GO TO 5000 
7135 PRINT RT 18,0;"MANCANO ";nv 
/hm-VOlte, " MANCHES" 

7140 PRINT RT 20,0;"PREMI UN TRS 

TO PER CONTINUARE": PAUSE 0 

7145 GO SUB 2010: GO TO 1000 

7150 REM scambio 

7160 FOR inhm-1 TO 1 STEP -1 

7170 LET s cd sp ( i +1 ) ; LET p(i+l) = 

p (i) : LET p ( i J aS ca 

7180 LET atant(i+l): LET n$(i+l) 

anf (i) : LET n f ( i) =a| 

7190 NEXT i 
7200 RETURN 




Figura 1. Quadro di gioco al massimo livello di 
difficoltà. Sono l appi esentati 3 ioni negativi e 3 
positivi, che respingono e attraggono l'elettrone 
(la piccola croce), deviandolo dalla sua traietto¬ 
ria. Si rammenta che l'elettrone ha carica negati¬ 
va e che cariche di ugual segno si respingono, 
mentre cariche di segno contrario si attraggono. 
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Un emozionante gioco 
per il vostro PET/CBM 


di Umberto Giovanni Barzaghi 

Il formato dei dati 

U no dei punti critici di qual¬ 
siasi simulazione è rappre¬ 
sentato dal formato dei 
dati che vengono introdotti per esse¬ 
re utilizzati dal programma per ge¬ 
nerare, sulla scorta dei dati stessi 
opportunamente manipolati, uno 
svolgimento plausibile del fenome¬ 
no che si desidera simulare: in que¬ 
sto caso, ad esempio, tutto ciò che 
può accadere in un rally. 

1 lettori più fedeli delle riviste del 
Gruppo Editoriale Jackson, ricor¬ 
deranno probabilmente che, in un 
progamma analogo, comparso su 
Bit n. 27, che simulava lo svolgimen¬ 
to di un gran premio di formula uno, 
gli unici dati necessari, a parte le 
caratteristiche del tracciato (nume¬ 
ro di giri da percorrere nel corso 
della manifestazione, lunghezza del¬ 
la pista in metri), erano rappresenta¬ 
ti, per ognuno dei piloti iscritti, dai 
rispettivi tempi sul giro di prova. 
Tale metodo, per quanto i tempi in 
prova siano progressivamente anda¬ 
ti perdendo in rappresentatività del 
grado di competitività di una vettu¬ 
ra, si era dimostrato piuttosto effi¬ 
cace. A questi dati andavano poi 
aggiunti i dati statistici e anagrafici 
di ciascun pilota (punti in campio¬ 
nato, nome del pilota e della vettura, 
numero di gara, ecc.). 

Per i rally, ovviamente, le cose si 
fanno un po’ più complicate. Innan¬ 
zi tutto, sarebbe estremamente diffi¬ 
cile disporre, per un numero interes¬ 
sante di vetture di tutti i tempi fatti 


Listato I. // programma Rally. 

RRLLV ! 

0 CLR : : NI =3© s Q- 38 : R--30 s B--15 : 00SUB55 

00 

1 DfìTfl"_OHRL O.J.3TD0RFEP "♦UD 

I ' ®URTTRO- r " , 1 ,380 ,0,2 

2 DFlTR" ♦LEM X. " , " IVI MRK I LRNCI FI 

037 ",2,325,4.2 

3 DRTR "#RLQNEH |RRJflHNE | . ” ,'VISS 

RN 248 RS",3,260,2,2 

4 DRTR"X.IKKOLR IERTZ ♦.","♦001 ■'« 

URTTRO •” " , 4,389,0 , £ 

5 DRTFI " ♦NDRUET '••. " , " -RESTO •. " , " L.RNC 

IR ©37 ",5,325,4,2 

6 DRTR " 1 HERIER ’■. L- " , "XIRL ’x " , " -ENRUL. 

-JT C-- "|" n r ?S*5 r 4r2 

7'DRTR"ILOMQVIST *.","—EDERBERG ","♦ 

UDI '*URTTRO'",7,380,0,2 

8 DRTR"IETTEGR ♦.","~ERISSIMOT x.",”LR 
MCIR 037 ",8,325,4,2 

9 DRTR" I IRSI OH x. " , "t* IVI ERO |.",‘'LRHCI 
i fi 037 ",9,325,4,2 

10 DRTR"-REMICHE !.","\RHE r I.","♦UDI 
88 '•URTTRO'",10,190,0,1 

11 DRTR"xETHFl ¥. " , "nETHR ","#IJBfìEU 4 
X4",11,120,0,1 

12 DRTR"•RBV I.","♦NDRIE r —","—ENRULT 

_5 T",12,295,4,2 

14 DRTR"- J RBV | . " , " I ORMLEY " , "XlSSfìH 
240 RS",14,260,2,2 

15 DfìTR " ♦ERV IR ", ” •RBRTER " [~PEL 

xfìHTfi 400 " , 15,220,2,2 

16 DRTR " --HRTRIOT ...... " , " I RICHOT 1 . " , " -EH 

RULT _J5 T",16,295,4,2 

17 DRTR" I RIJHDEL - J . " , "-TEKMRNN O. ” , "XO- 
i OLF II-, 1.8", 17,175,3,1 

18 DRTR"ORRMBOLD ♦.","-ELTZ —","xfìZDfì 

323",18,180,3,3 

20 DfìTR " •HOBECK ~MRNUELL I " , "_E 

HflULT _5 T",20,295,4,2 

21 DRTR " —RRLSSOM L- " .- "#PJUTH |.","\RZD 
R 323",21,180,3,1 

22 DRTR " —RITZINGER OUENSCH I . " , " | 

OVCrI R -OROLLR " , 22,180,2,1 

28 DRTR"•ILLRNKORVfi x.","XIEMIMEH L- ", 
"xfìZDfì 323",28,180,3,1 
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segnare, in ricognizione del percor¬ 
so, in tutte le prove speciali da di¬ 
sputare. Inoltre solo le vetture delle 
squadre ufficiali compiono delle ri- 
cognizioni cosi esaustive e non sem¬ 
pre con tutti i piloti del team e infine, 
i direttori sportivi dei team ufficiali 
(il ruolo che voi siete chiamati a ri¬ 
coprire in questa simulazione) sono 
gelosissimi dei tempi fatti segnare in 
queste ricognizioni dai propri piloti 
che potrebbero fornire preziose in¬ 
dicazioni sul grado di competitività 
delle proprie vetture ai direttori 
sportivi delle altre case. 

Per ovviare a questi problemi di 
scarsità di dati, è stato quindi neces¬ 
sario fornire al calcolatore dei dati 
caratteristici delle vetture (e, quindi, 
cosa di cui mi rammarico, indiffe¬ 
renziati per quanto riguarda il pilo¬ 
ta) che potessero essere ritenuti og¬ 
gettivamente responsabili delie pre¬ 
stazioni della vettura stessa. Essi do¬ 
vevano inoltre rispondere a delle ca¬ 
ratteristiche di reperibilità ed affida¬ 
bilità. Come se non bastasse, era 
anche necessario reperire tutti i dati 
riguardanti le prove speciali, e fare sì 
che i tempi simulati fossero con¬ 
gruenti con il tipo di fondo stradale 
della prova percorsa e con le diffe¬ 
renti prestazioni dei vari tipi di vet¬ 
ture nelle differenti condizioni. 
L’impresa non si presentava delle 
più semplici! 

I dati da me scelti come significa¬ 
tivi sono rappresentati dalla poten¬ 
za delle vetture (espressa in cavalli 
DIN) e dal tipo di trazione della 
vettura stessa; questi dati, uniti a 
quelli riguardanti lo stato ed il tipo 
di fondo stradale della prova specia¬ 
le, permettono di generare dei valori 
sufficientemente plausibili. Per lo 
meno, la proporzionalità dei tempi 
tra le varie vetture è rispettata. For¬ 
se, per altri rally, una volta introdot¬ 
ti i dati nella forma corretta, potreb¬ 
bero rendersi necessarie alcune pic- 


Seguito programma Rally 


30 DRTfì " I RKflOK.Fl |. " , " -OR I KRWfì I- " , " * *UB 
RRIJ 4X4" ,30, 120,0,1 

31 DRTfì " RIJGER |, " —RZRMRVOU I. " , " I RL 
BOT *RMBR",39,130,3,2 

32 DRTR" OUGET “j. " , "LELIEVRE I. " , " I R 

LBOT #RMBfì",49,138,3,2 

33 DRTR"—HRSSEUIL | .","1LRIH ","*UDI 

80 ' •UHTTR0 •" " , 47,160,8,0 

34 DRTfì" | OS “1- " , "L.EUVREV |. " , "♦UDÌ 36 

• r •URTTRO •' ",44,160,8,8 

35 DRTfì " L..RRSSOH " , "#RGEL X. " , "XO--I OL 

F 1 | -, 1.6",35,158,3,1 

36 DflTfì " “PNCIRTICI " , " FCELLI " , " ♦L 

Ffì _OMEO ||X 6",36,178,2,0 

38 DRTfì"-RAUCHE " , " I RRJOU |. " , "_ENRIJ 

LT _J5 T",51,180,4,8 

39 DRTR "1 RI NT IQNRNT L, " , " I IOULfìNG 
","*LFR _OMEO i I X 6",48,170,2,0 

48 DRTR "♦UDÌ *PORT - \&\ I ERM" ,3, "LRHC 

IR sflRTIHI ",3, " ’OLLV H_UB" , 1 

45 DRTfì"XISSRN ♦UTOMOBILES",2,"_EGIE _ 
EHRULT",2,"#UBRRU",2 

58 DRTR "♦UDÌ .PANCE" ,3, " f'PEL —ERLERS I 

ERM -SPRHfì",1,"_EHRULT —HfìRTRES",2 

55 DRTR"XOLKSMRGEN XOTORSPORT",2 

56 DRTR"'--RZDR I ERM “UROPE" ,3, " I OVOTR I 
ERMRNV",1,"♦LFfì -PANCE",2 

57 DRTfì"TJJGEOT-1 RLBOT “ROMOTION",2 , " _ 
ENfìULT —RUGHE __HC ING " , 1 

68 DATAI,4,7,2,5,8,9,3,14,6,12,11,38,1 
0,44,47,15,16,28,17,35,18,21,23,22,36 

61 DATA40,39,49,51,"ROTTURA MOTORE","C 
EDIMENTO SOSPENSIONE","USCITA DI STRfìDfì 

II 

62 DRTR"ROTTURA DELLO STERZO","RADIATO 
RE FORATO","UH INCIDENTE" 

63 DRTfì”CADOTTAMENTO","SCARSA MRNEGGEV 
OLEZZA","PNEUMRTICO DECHRPPRTO" 

64 DATA"ROTTURA DEL CAMBIO","CEDIMENTO 

RCCENSIONE","CRTTIVR CRRBURRZIONE" 

65 DRTR"MOTORE","SOSPENSIONI","FRIZION 
E" . "RL.LO STERZO" , "RAFFREDDAMENTO" 

66 DRTfì"DI ADERENZA","REREODINfìMICI"," 
MANEGGEVOLEZZA" 

67 DRTfì"PER UNA FORRTURR","RL CAMBIO", 
"ELETTA.ICI","RLIMENTRZIONE" 


49 













Rally 

cole modifiche di “messa a punto” 
per far sì che i tempi siano congruen¬ 
ti anche in valore assoluto con quelli 
reali. Con la versione del program¬ 
ma che appare su questo numero, e 
che simula lo svolgimento di un 
Rally di Montecarlo sulla base dei 
dati della 52a edizione (disputatasi il 
gennaio scorso), non ci dovrebbero 
essere problemi al riguardo. Per al¬ 
tre simulazioni potrebbe rendersi 
necessaria l’introduzione di un coef¬ 
ficiente correttivo in riga 5370, che 
andrebbe modificata come segue: 
5370 EL(J,5) = EL(J,5) ★ CC + 
EL(J,7) ★ L9:GOSUB 15000: 
IFEL(J,11) < > 1THEN 5380 
dove a CC va sostituito un valore 
numerico compreso tra .75 e 1.25. 
Facendo variare opportunamente il 
valore numerico suddetto, e con¬ 
frontando i tempi così ottenuti con 
quelli reali (ad esempio) dell’anno 
precedente dovrebbe essere possibi¬ 
le per chiunque ottenere dei risultati 
congruenti anche in valore assoluto. 

Qualcuno potrebbe chiedersi per¬ 
ché un metodo analogo non è stato 
usato anche per la generazione dei 
tempi di percorrenza delle prove 
speciali, invece di quello, molto più 
complicato, che ora illustrerò. La 
ragione è semplicemente attribuibile 
al fatto che, di anno in anno, le pro¬ 
ve speciali che compongono i grandi 
rally di campionato mondiale ven¬ 
gono in parte cambiate, sia come 
lunghezza che come percorso o, ad¬ 
dirittura, in assoluto; per non parla¬ 
re del fatto che, da un anno all’altro, 
rilevanti cambiamenti intevengono 
anche nella composizione delle 
squadre e nella loro condizione 
tecnico-tattica. 

Ho quindi precisato che fra i dati da 
inserire, per ogni vettura, un posto 
rilevante è occupato dalla potenza 
della vettura. Essa, però, perde di 
significato in determinate condizio¬ 
ni, proprie dei rally, ad esempio in 
caso di bassa aderenza. Per questo 
motivo, tra i dati necessari ho rite¬ 
nuto opportuno inserire anche il ti¬ 
po di trazione di ogni vettura e, ne¬ 
cessario complemento, il tipo di 


Seguito programma Rally 


68 DATA 1206 , 1200 , 12001200,1200 , 300,30 
0,680,180,1260,600,1200 
63 DfìTR 15,15.15., 15,10,5,4,5,10.. 13,10, 1 

0 

70 DATAI,-l,.5,1.5,-1,2,1,1,3,1,2,1,1, 
3,1,3,2,2,4,2,2,1,1,3,1,5,7,6,6,7,3,5,4 
*2 

' 71 DATA2,4,6,5,5,5,5,7,6,6,6,4,6,5,4,4 
,10,13,15,12,14,8,10,12,3,16,5,6,8,6,5. 
5 

72 DATA6,7,9,7,7,8,10,12,3,10,12,15,13 
,13,15,10,13,11,11,13,8,11,9,9,11,6,7,9 
,7 

73 DATA7,10,13,11,11,13,0,6,8,0,9,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,9 

o 

,r O 

74 DATA7,8,0,9,0,6,0,6,0,0,0,8,1,3,2,1 
, 2 , 0,0 , LI , 0,0,5 , i'' , 6> , 5 , r’ , 1 , , 3 , , 3,9 ,0 , O , 
0 

75 DATA9,0,0,0,8,6,1,3,3,2,3,7,9,8,7,9 
,5,7,6,5,7,3,5,4,3,5,0,0,0,0,0,5,7,6,5, 

76 D A T A 5,7,6,6,7,4,6,5,5,6,4,6,5 ,5,6,4 

,6,5,5,6,0,2, 1,1,2, f r 9,8,8,3,5,7,&,, < , 

O 

7 ? DR I R5 r *4 r *4 .r 5 r 5 r f ? r t> l" r '4 r .. ...» O r *2’ r ^ 

1 ,101011 ,7, 3,8,8,93.r7,667.,68 7 ,7 r 

o 

78 DATA6,8,7,7,8,12,15,13,13,15,16,i3, 
11,11,13,8,11,9,9,11,6,7,8,7,7,16,13,11 

79 DATAI 1,13,3,5,5,3,5,2,3,3,2,3,0,9,0 
,0,9,6,0,0,0,0,9,0,0,0,0,5,7,7,5,7,0,8, 
0 

80 DATA0,0,0,0,0,0,0,0,0,0,0.0,0,6,0,8 
,0,7,9,9,7,9,3,5,5,3,5,0,6,0,8,6,0,8,0, 
0 

81 DATA0,1,3,2,1,3,7,9,8,7,9,5,7,6,5,7 
,3,5,4,3,5,©,0,0,6,0,5,7,6,5,7 

32 DATA »XENIPIER",14.4,2,0,"LA -HRRTRE 
USE " , 44,2,8, "*T. l EAH-EH-.J3VAHS " , 8,0,0 

83 DATA " *‘T. I ONNET-LE——ROID " , 26,2,6 , " L 
E ■\DULIHON" ,37,2,0, "LA COLICHE" ,27. 5,2,6 

84 DATA” | URZET" ,45,2,0, "#T. .'A2AIRE-LE 
ESERT",23.8,3,0,"-OL DE “ERTY",20.5,3 

35 DATR0,OL DE *VE",29,3.0,"LES ♦AVO 
VONS ",0,0,0, " ' -.OHESTI ER " , 0,8,9 
86 DATA"-OL DE XANSE",0,0,0,"-HORGES", 
23.8,2,0,"~OL DE IARCIHETS",22.7,2,6 
37 DATA"*ISTEROH",36.8,2,0,"UIMICHEL" 
,21.7,3,8,"IRIGANCE",33,3,6 
SS DATA"LES QIJATRES CHEMINS" , 16,3,9, "L 
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”11 Personal Computer IBM. 
- Se solo - 

potessi portarlo 
con meP 





Oggi, con il nuovissimo Personal Computer 
Portatile IBM puoi portare con te tutta la potenza 
elaborativa del Personal Computer IBM. 

Pensa a una macchina per scrivere: più o meno 
è grande così. 

E piegando una lettera a metà, hai un’idea delle 
dimensioni dello schermo incorporato. 

D peso di questa nuova creazione IBM? Circa 13 kg. 

Comunque, a parte le dimensioni, il Personal 
Computer Portatile IBM non ha niente di piccolo. 


Ha invece grandi qualità. E puoi portarle do¬ 
vunque tu ne abbia bisogno (purché nei dintorni ci 
sia una presa di corrente). 

Ha le stesse funzioni e prestazioni del famoso e 
collaudato Personal Computer IBM: una memoria 
ampia che arriva a 512 Kbyte; cinque attacchi di 
espansione disponibili per il collegamento con 
molti dispositivi opzionali; una nuova tastiera su¬ 
perleggera e un’unità minidischi (che utilizza gli 
stessi minidischi usati sul modello “fisso”). 









Il Personal Computer IBM ti offre nuove e 
grandi opportunità di efficienza nella tua attività. 
Perché puoi usarlo, con tutti i programmi che vuoi, 
in ufficio, in una filiale, all’estero, ai meetings, 
durante una presentazione a un cliente... 

E puoi persino finire il lavoro comodamente a casa 
tua (così, puoi scappare prima dall’ufficio). 

Il Personal Computer Portatile IBM è una vera 
e propria potenza elaborativa da viaggio. Vai dal 
concessionario IBM più vicino a te (gli indirizzi so¬ 


no nella pagina seguente) e chiedigli quanto costa. 
Resterai stupito: è leggero anche nel prezzo. 

SPECIALE PROFESSIONISTI 
Oggi dai concessionari IBM 
per tutti i liberi professionisti 
un vantaggiosissimo 

finanziamento agevolato. _ 















pneumatici da adottare in base al 
tipo di fondo stradale ed al suo sta¬ 
to. 

Vediamo quindi qual’è il formato in 
cui vanno introdotti i dati. Per ogni 
equipaggio (righe da 1 a 39) è neces¬ 
sario fornire: 

■ nnmfilel pili i t a; - 

• nome del navigatore; 

• nome della vettura; 

• numero di gara; 

• Potenza in cavalli DIN; 

• tipo di trazione. In effetti, un nu¬ 
mero da 0 a 4. con le seguenti distin¬ 
zioni: 

0 - trazione integrale (quattro ruote 
motrici). Per esempio: Audi “Quat¬ 
tro”, Subaru, Peugeot 205 rally ecc; 

1 - motore e trazione posteriori. 
Cioè: Porsche 911 RS SC; 

2 - motore anteriore e trazione po¬ 
steriore (transaxle). Vale a dire: Nis¬ 
san 240 RS, Toyota Celica, Opel 
Manta e Ascona 400, ecc; 

3 - motore e trazione anteriore. Ad 
esempio: Golf GTI, Talbot Samba; 

4 - motore centrale e trazione poste¬ 
riore. Tra le altre: Lancia 037, Re¬ 
nault R5 t; 

• gruppo di appartenenza. Secondo 
il regolamento internazionale FIA, 
possono partecipare alle gare di 
campionato del mondo vetture 
iscritte a soli tre gruppi: 

N - vetture di serie cui vengono con¬ 
cesse poche modifiche che non con¬ 
tribuiscano direttamente ad aumen¬ 
tarne le prestazioni (ad esempio fari 
fendinebbia aggiuntivi o qualche 
particolare irrobustimento, oltre a 
quelli obbligatori per ragioni di si¬ 
curezza, roll-bar e controvenature 
dei parabrezza). Queste vetture ven¬ 
gono contraddistinte dal valore nu¬ 
merico 0; 

A - vetture derivate dalla serie per le 
quali vengono ammesse alcune delle 
modifiche negate ai gruppi N. Valo¬ 
re numerico I; 

B - prototipi da rally, costruiti in un 
numero di esemplari limitato, ed in 
parte ricavati dalle vetture del grup¬ 
po A, molto modificate, ovviamen¬ 
te. Valore numerico distintivo 2. 

A questi dati caratteristici delle vet- 


Seguito programma Rally 

:,0,"~EILLE",13,1,0 

39 DATA " i URI. NI " , 22.4,2,0 , " -GL DE LR —0 
UILLOLE " , 22,2... 0, 11 UGET-1 HEHIERS ••, 28.5,2 
,0 

92 DATA"LODA", 16.5,2,0," "TE I LLE " , 13,0,0 

- . "iURINI",22.4,2,0 - 

94 DRTR"—OL DE LR -DUILLOLE",22,2,0,"I 
UGET-1 NEHIERS",28.5,2,0,"LODA",16.5,2,0 

95 TFT<0>='' ASFALTO":TFT<1> = " STERRATO 

II 

SS SF T 0 > = " ASC IIJTTO" :SFT < 1 > = " BAGNATO 
":SFT <2> = " IHNEVRTO":SFT<3> = " OHIAGOIAT 
0“ 

87 TOT<0> = "#LICK":TOT <1> = "_AIN":TOT<2 > 
=" -.Q'JD & *HOW" :TGT < 3 > = " —HIODATE" 

93 TGTv4>="STERRATO" :GR$<0> = , V’ :GRT< 1 > 
-$ " : GRT < 2 > = " I " : GR < 0 > =5 : GR < 1 >=9 : GR < 2 > = 1 

s 

100 F'R INTCHRT < 14 > : UT= " 

:?Me®Wl!3lgIS«S" ; P2= 145 : P1 = 135 
140 FORW=1T026:NT<N>=LEFTT < NT,W>:NEXT 
150 GF=15 : PRI NT " □" NT < 5 > " ,-OME DELLA MAN 
IFESTRZIOHE" ; : INPUTGPT :GPT="ja"+GF'T+"l" 
155 FRI NT ".-4JMER0 DI PROVE SPECIALI" :PR 
INT"DA DISPUTARE"; :INPUTGF 
169 FRINT"LUNGHEZZA E TIPO P.S. RANDOM 
" ; : INPIJTRNT 

163 IFRNTO" N " ANDRNTO- "S"THENPRI NT " ZE3" 

:GOTO160 

164 RNT C 0> =RNT : I FRNT= " S " THENRNT 1 > = " S " 

:GOTO170 

165 PRINT"IEMPO ATMOSFERICO RANDOM"; :I 
NPUTRNT- 

167 I FRNTO " N" ANDRNTO" S " THENPR I NT " ITT 
:GOTO165 
163 RNT<1>=RN$ 

179 GOSUB11000 

200 INPUT",-OMERO DI CONCORRENTI <<=3>" 
;NC 

219 I FNO3ORNC<0THEHPR I NT " UT : GOTO280 

255 1=1SGOSUB490 

270 GOSUB6500 

440 PRINTWT<23>:END 

490 REM 

491 GOSUB4000:1FNC=0THENRETURN 

495 FORU=1TONO :F0RT9=1TO5000:NEXT:PRIN 
T " □" GPT : PR I NT " fflSFINCORRENTE N. " U " SHS" 
497 POR I = 1TOB : I T=STRT < I > s TB--3-LEN < IT > : 
PRINTTAB< TB >IT"■"TAB <5 >TET <I,1>:NEXT 
500 PRINTWT<23>"#UALE TEAM VUOI CONTRO 
LLARE " sINPUTN 
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”Ed ecco chi mi garantirà 
un’assistenza qualificata per il 
Personal Computer IBM.” 

Il Concessionario IBM. Un“ vero esperto di elaborazione dati che ti aiuta ad ottenere il massimo dal tuo Personal Computer 
IBM e ti garantisce un’assistenza puntuale e un servizio efficiente e affidabile all’altezza del nome IBM. 
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ABACO INFORMATICA SAS . VU Bernini. I TU. 051 393274 

CMB INFORMATICA SCRL Via Archeggio. 74/10 ■ Tel 051 323594 

LI’CKY SYSTEMS SRL • Via Farini. 33/A - Tri 051.231569 

S I E I) SRL Viale Silvani. 20 - IVI 051 521605 

STUDIO *P* COMM SRL Via Massarenti. 50 - Tel 051 397660 

SYSDATA ITALIA SPA Via Maaaimo d*Azeglio, 58 - IVI 051 310021 

Carpi 

DATA SRL Via B. Pc ruzzi, I2 -Tcl 059.688090 
UNIDATAX SRI. Vulc N Bionde. 6 ■ IVI 059.698355 
Faenza DATA SERVICE SRL • Via laderchi, 2 - Tel 0546.660300 
Ferrara MARK1TALIA COMPITERS SRL Via Bologna. 84 
1b! 0532 96128 

Fidenza RCM COMPÌ TER SAS -VU Commi Malpeli. Il -Tri 0524.81296 
Forlì 

C E DA F. COOP. ELAB DATI • VU 7-anchini. 57 - IVI 0543 65402 
I C.O.T IMinANTI SRL Via Masetti. 56 • Tel 0543.723014 
Imola PALAZZO DONATO Se C COMPITERS SRL Via EmilU. 23/A • 
IVI 0542.29195 

l.ugo Ravenna DONATO PALAZZO & C. COMPITERS SRL 

Ma Foro Boario. 79/81 • Tel 0545 21824 

Modena 

INTEI.COM SRL • VU della Cittadella, 51/6-1 • Tel 059223663 
MASETTI ELETTRONICA SRL • Corto Canal rande. 14 - 'IVI 059.219801 

Parma 

DS DATA SYSTEMS SRL Borgo I.alatta, fi - IVI 0521 208193 
PROGRAMMA NORD B SRL Viale Mentana, 104 Ibi 0521 96960 
Piac enza RCM COMPÌ TER SAS C ao Vittorio Emanuele II. 96 
IVI. 0523.37656 

Ravenna CEI.COOPSCRL Via S. Gavina. 7 - Ibi. 0544 462592 
Reggio Emilia 

ABAX INFORMATICA SCRL Via M K Gandhi. I/D • Tel. 0522.26941 
A PE D ELABORAZIONE DATI Ma Filippo Re. 17 - IVI 0522 38721 
MEMAR ELECTRONIC SRL Ma M. Melato, 11 - Tel 0522 94210 
Rimini 

HARD tt SOFT SYSTEMS SRL Male Valturio. 43 - Tel. 0541 773843 
TRE EMME PI SPA Via P Veronese. 14/16 Tel 0541 775153 
LAZIO 

Froainone - SARI ELETTRONICA SRL Ma Tiburtina, 181/183 - 
Tel. 0775.874093 

Roma 

BIT COMPITERS SRL VU F Satolli. 35/57/59 - Tbl 06.6386146 

COSMIC SISTEMI SRI. VU G l-anza. 101/101/105 - Tri 06 7.18224 

CRAMER ITALIA SPA VUC. I I r i 06 517981 

DATAOPF1CE SPA VU Sicilia, 205 ■ TVI 06 4754568 

F.LEDRA 3S SPA - VU G. Valmarana. 6.1 • Tbl 06.8110151 

EXPO SAS • Ma 4 Novembre. 151 Tel 06 6794293 

GEDIN SRI. - I. g.i D De Dominici*, 7 - IVI 06.432183 

I S E D SPA Ma Tiburtina. 1236 Tbl 06 4125851 

ISI ITAI. SISTEMI PER L’INFORMATICA SPA Pz/a SS Apostoli. 66 

Tel 06,6793477 

ITAI.SIEI. SPA • Ma Tevere. 26 - Tel 06 84311 

MEMORY COMPITERS SRL VU AurelUna. 39 - Tbl. 06.4758366 

MICROCOMP SPA Vie M Gelsomini. 28/30 • Tbl 06 5759324 

N1CA DIFF INF SRL Vie Parioli. 40 - Tel 06 872603 

SAPES SRL - Vie Tito Livio. 12 - Tel 06 1453536 

SIPE OPTIMATION SPA - Via Silvio D’Amico. 40 Tbl 06 5476 

SYS DATA ITALIA SPA • Ma Cola di Rienzo. 265 • Tel 06 151417 

TELERIA SPA Vu V Brancati. 64 - IVI 06 5011551 

VALDE ADEL SRL - P.zza S. AnaatasU. 3 - Tel 06.6786663 

Viterbo 1TA1.BVTE SRL Vie Trento Pai Garbini Tel 0761 221333 

LIGURIA 

Albenga SISTBX INFORMATICA SRI. VUJed’ItalU. 60 -Tel. 0182 50965 
Chlavarl SISTEX SRL VU A Millo. 85 - Tbl 0185.309484 
Genova 

BENNATI SPA - VU Polleri, 3 • Tel 010 206727 
DIFP.EL SRL Via XX Settembre. 31/4 • Tel O10.586238 
ELABORATION PROCESSES SRL Via Brigata Lig. 68/70/72/74 
Tel 010 565704 

SISTEX SRL - Ma SS. GUcomo e Filippo, 13R Tel. 010.873444 
La Spezia - DIFP.EL. CESA SRL -Viale S Bartolomw. 139-Tel 0187 505223 
Sanremo - DIFF EL RCS SRL - Ma Helainore. 8 - Tel 0184.72435 
Savona SISTEX INFORMATICA SRL Ma Montenotte. 100/102 - 
Tel 019.801638 
LOMBARDIA 

Albino - NUOVA INFORMATICA SAS - Ma Provinciale. 86 - Conn-nduno 
Tbl 035.751784 


Ataago - TRANSDATA SRL - Mi Fiori Pai £3 Str. I - Tbl 02 6242460 

Bergamo 

AMPLIFON SPA AMPLISYSTEM - Ma Quarenghi. 21 • Tbl 035 232988 
SELTERLNG SPA - Ma Verdi, 31 Tel. 035.248256 
SIRIO SHOP SRL • Vìa Angelo Nlaj. 16/b - IVI. 035 223552 
Breno SEI.CAM SRL • Via Mazzini. 92 • Ibi 0364 21521 

Bretcia 

FIN-ECO SERVICE SRL - VU Paatrengo. 5 - TeL 030.59055 
—M IC R O SE LT BRI , VU C . f r- , . 1 3 T el »W-3 a 4»46- 

flKLTEniHG HPA • Vu Cipiu. 33 • Tri 030.220391 
Bratto - C.I.S.I. SAS - V. Vittorio Veneto. Ili • Tbl. 02.6105798 
Carugo - PENTA SRL - Via Garibaldi. 8/2 - Tbl 031 763051 
Cattellanza BETA ELETTRONICA SRL - VU E. Cantoni. 97/D - 
Tbl 0331 503991 

Como - BRUNO SRL - Ma Rubini, 5 • Tbl. 031.260538 
Cremona FIN-ECO SERVICE SRL P.zza Marconi. 3 • Tel. 0372.27209 
Lecco - ZECCA IfFFICIO SPA - Viale Dante. 14 Tbl 0341 373291 
l odi ZUCCHETTI SPA - C ao Mazzini, 39 • Tbl. 0371.54827 

Mantova 

ANTEK COMPUTER SAS - VU Cavour. 69/71 • TeL 0376.329333 
REPLICA COMPUTER SRL Galleria S Maurizio. 9 Ibi 0376 368821 
Milano 

AG INFORMATICA SRL • Via G. Silva, 49 - Tri 02 4983416 
AMPLIFON SPA AMPLISYSTEM VU Ripamonti. 129 • Tbl 02 53591 
AMPLIFON SPA AMPLISYSTEM - Com Vercelli, Il - Tbl. 02.4695570 
AM UFFICIO SAS - VU Detenzano. 7 Tbl. 02 4080275 
BONI Bl ’SINESS OFFICE MACHINES V.le TtinUU. 50 -Tri. 02 6598076 
COMPlTER SHARING NORD SRL • Piazza S Maria Beltrade. 1 
Tbl 02 860586 

C S A COMM. SRL Ma Farini. 82 - Tbl. 02.6888433 
CTC GROUP SRL VU Dante. 14 Tbl 02 6573015 
DATAMONT 1.8. SPA - VU Valatsina. 22 - Tel 02 6333 7028 
DATA OPTIMATION SRL • VU Maaaccio. 12 • Tbl. 02 4987876 
ECS ITALIA SRL • C *0 Monforte. 15 • Tbl 02.760213 
EDELEKTRON SRL - C ao Sernpione. 39 • Tel 02 3493603 
F.LEDRA 38 SPA Male Elvezia, 18 - Tbl 02 349751 
GENERAL ELECTRIC INFORMATION SERVICES SPA - 
V.le Regina Giovanna. 29 • Tbl. 02.2870181 

HOMIC PERSONAL COMIT TER SRL ■ Piazza De Angeli, 3 -Tel 02 4988201 
HUGNOT LUIGI LUCIANO - VU De Togni. 10 Tbl 02.873190 
IL NUOVO UFTICIO SISTEMI SNC VU Priv del Don. 2 Tel 02 8350780 
ISTITITO SUPERIORE DI INFORMATICA SRL VU MontepuleUno. Il 
Tbl 02 6701779 

ITALSIEL SPA Ma Porlezza, 12 - Tbl 02 3452270 
M1CROTFXTI SRL VU Fili Bronzetti. 20 Tri 02.733609 
O E M SRL C ao Sempione. 8 - 'Ibi 02 3492136 
SIRIO SHOP SRI. Male Certo». 148 - Tel 02 3010051 
SOFTEC COMPITER SRL Via Jenner. 23 - Tbl 02 603721 
S D Ì. STUDIO DI INFORMATICA SPA Via G Winckelmann, 1 • 

Tel 02.4227361 

TAG INFORMATICA SRL VU Rallini. 2 • Tbl 02.6080080 

TAG INFORMATICA SRL - Bastioni di Porta Nuova, 15 • Tel. 02.654820 

Monza 

ED1CONSULT SRL • VU Roamini, 3 - 'Ibi 039.389850 
ESI SRL Ma F Cavallotti. Il - Tel 039.365038 

Pavia - LT.C. INFORMATICA SRL Viale Montegrappa - Tel 0382.419300 
Rozzano COMPITER ASSOCIATES SRL Palazzo Q/8 Mi Fiori 
IVI 02 8242151 

Saronno DATA BASE SISTEMI SRL V» Don Grifranti, 2 - 
Tbl 02 9622896 

Seregno TC SISTEMA SRL Corto del Popolo. 102 Tel. 0362.223671 
Sondrio - G.P.D. DOMENIGHINI SRI. Vie N Sauro. 28 TVI 0342.218561 
Trezzano sul Naviglio - I.A ('ENTRALE SERVIZI SPA VU B Cellini. 1 
Tbl. 02.44574 1 

Varese 

ELMEC SPA • VU Scbemcu, 12 • Tbl. 0332.264135 
IRTE INF ELETTO. SRL V» Morazzone. 8 Tbl 0332.238533 
VEGA SPA - VU Silvettro Sanvito. 103 - Tel 0332.231555 
Vigevano LOGICA INFORMATICA SRL Via Montegrappa. 32 
Tbl 0381 81888 

Cimereste DATA PROGRES SRI. Ma V Emanuele. 44/A Tel 039 667423 
Vimodrone OMFXIA DATA SRI. • Suada PadanaSup. 317 -Tbl 02 2504121 
MARCHE 

A scoli Piceno S1ME DATA SRL Via L Ariosto. 3/5/7 • 'IVI 0376 64641 
Civitanova M. S E I SRI. VU G D’Annunzio. 196 • Tel 0733.773262 
Fottombrone - SIPCOA COMPITER SRL - Via Agostini. 3 • 

Tbl. 0721.75340 

Jet! SYSTEM HOUSE APRA SRL VI* Cavallotti. 9 - 
Tbl 0731.58743 

Moie - S E D A SPA • Pzra S. Mona Tri 0731.70345 

Petaro • COMPUTER Se OFFICE SRL - Via Mazzini, 73 - Tbl. 0721.64170 

S. Benedetto del Tronto DAVE ENGINEERING SRL Vu De Gasperi. 58 

Tel 0735.86531 

MOLISE 

Campobatso - PUBLISISTEMI SRI. - Pzza Repubblica. 9 - Tel. 0874.90534 
PIEMONTE 

Alba SISTEMI SRL Ma D Galimberti. 3/E - Tbl. 0173.49871 
Alettandrla • INFORMATICA SERVICE SRL Vìa Isonzo. 63 - 
Tbl 0131.445817 

Asti • HASTA DATI SNC - VU Silvio Morando. 6/A - Tel 0141 216356 
Biella 

TEOREMA SRL - VU Losana. 9 - Tel. 015 24915 
VI P. COMPITERS SRL - Vu Repubblica. 39 Tbl 015 27106 
Borgosesia I D S INF DATA SYST. SRL Male Varallo. 157 - 
Tbl 0163.25327 

Cuneo - SISTEMI SRL Vu Giolitti. 26 - Tbl 0171 55475 
Genola EUROSISTEMI SPA - Bivio S S. 20/28 - Tel. 0172 68176 
Mondovi - FILDATA - Via Borzini. 3 - Tel. 0174-47156 
Novara - ASA SRL - Cono Italia. 25 • TVI 0321 28250 
Torino 

ABA ELETTRONICA Vu Fossati, S/C - Tel 011.332065 
AMPLIFON SPA AMPLISYSTEM - Ma S. Tbmmaso. 23 Tbl Oli 537091 
BELLUCCI BENEDETTO - VU Paparino. 24 - Tel Oli 545086 
DIVERSIFICATE VENCO SRL - C so Matteotti. 32A - Tb! 011 545525 


ECS ITALIA SPA - Corso V Emanuele. I - Tel. 011.6504747 
PROGRAMMA COMPITERS SRL C so Svizzera. 18.'. Tel Oli 746421 
SISTEMI SPA - C so Peschiera, 249 - Tel Oli.3358676 
SOFTEC COMPITERS SRL Ma Juvarra. 24 Tri 011 535449 
Verbania (Intra) S 80 SCRL - Ma Roma. 7 Tel 0323 41083 
Vercelli • ANALOG SNC Via Dionisotli. |8 Tri 0161.61105 
PUGLIE 
Bari 

HTi TT U T En SHAR I NG SU D S P A VU T NMo. 1 T ri UBI!ili J, - 

H S SYST EMS SRI. Vu Caatromrdunn. 131 Tel OSO 13l65t 

PASF.D SRI. Ma Calafati. 134/136 ■ Tel 080 481488 

SIRCOM SRL Vìa della Repubblica. 67/69 Tri 080 364674 

SISMET SRL Corto Cavour. 146 Uè Tel OSO 5|0731 

Foggia MASF:I.LI PER L'UFFICIO-VUL ZuppetU, 355A Tel 0881 78014 

Lecce -1 P.E S SPA Ma Oberdan. 29 - Tel 0832 33904 

Maglie S.V.I.C. SRL • VU V Emanuele. 121 - Tri 0636 21604 

Taranto - ALFA di SPORTELLI L. - VU Medaglie d’Oro, 39 Tel 099 135558 

SARDEGNA 

Cagliari 

C D S SARDA SRI. - VU S. Lucifero. 65 - Tel 070 656922 

DATA SISTEMI SRL • Vìa Le Fra.» .. 6/8 - Tbl 070 662541 

Olbia C.P.S SRL Vìa Galvani, 4 Tri 0789 51194 

Sassari SARDEGNA SISTEMI SRL VU G Mazzini, t Tri 070 288092 

SICILIA 

Catania 

ASIA COMPITER SRL VU S Eupilio, 13 Tri 095 .326944 
COMPITER SYSTEMS SRL Viale Ulisse. 12 T I 095 401122 
Messina - SO F IN. SPA - VU Don Blaaco. 75 • Ibi 090 2923987 

Palermo 

ANGELO RANDAZZO SPA Vu Ruggero Settimo. 53 - Tel 091 585113 

SER COM. ITALIA SRL Vìa Libertà. 86 Tri 091 266672 

SI.PR EL. SRL - Vìa Serradifalto. 145 • Tel. 091 577344 

TESI SRL Vìa E Notarbartnto. 23 Tei 091 260549 

TYapani - TESI SRL - Vu Pàlmerio Abate. 2 - Ibi. 0923.20026 

TOSCANA 

Arezzo - F’INITAL FIN. IT SPA • VU Benedetto Varchi. 59 - Tel. 0575.35-3141 
Empoli SF'SA DISTRIBUZIONE SRL Vìa XI Febbraio. 24 B 
Tbl 0571.71111! 

Firenze 

DATA COOP SCRL - VU di Novoti. 23/H Tbl 055.4379868 
DISTAI. SRI. VI SQW9 

SE8A DISTRIBUZIONE SRL l.ungarno Ferrucci. I9R • Tri 055.6811653 
Grosseto ELECTRONIC MARKET SRL Vìa della Pace. 18/20 
Tri 0564 411090 

Livorno AICAR SRL • Vìa Ernesto Rossi, 5 - Tri 0586.36131 
Lucca LUCCHESE COMPITERS SRL Corao Garibaldi. 17/19 
Tri. 0583.42011 

Marina di Massa • BIT BYTE SRL - Vu Vittorio Yen.. 21 • Tel 0585.245496 
Pisa SDÌ ST DI INFORMATICA SPA • Piazza Tonioln. 3 - Tel 050 500004 
Pistoia DARIO NANNINI Corto Gramsci. 84 • Tel 0573 32532 
Prato C C S. SAS • VUle Repubblica. 298 • Tel 0574 580222 
Siena - SII.OG SRL VU SicilU. 5 - Beiverde Monteriggioni 
Ibi 0577 54085 
TRE VENEZIE 

Altavilla Vicentino CENTRO INFORMATICA SRL Vìa Verona. 40 
Tavernellc Tri 0444.980125 

Bastano del Grappa - STUDIO L & CSPA • Viale Duz. 27 • Tel 0424 212541 

Belluno 

DE PRÀ SRL Vìa I. Caffi. 18 Tel 0437 23243 

SCP. COMP SYST SRL Vìa Fbltre. 244/A - Tel 0437 20826 

Bolzano 

BOI’AM SAS • Vìa C Battisti. 32 - Tel 0471 30113 

DATOR SRL Vìa del Ronco. 13 • Tri 0471 914055 

Brunico • DATOR SRI, - Vìa Campo Tire». 8 - 'IVI 0474.84615 

Castelfranco Ven. • EDS SRL Vìa S Pio X. 154 Tri 0423 490178 

(’onegliano Veneto - EDS SRI. V.le Italia, 132 • Tel 0438 6234-5 

Merano COMPITER MARKFT SAS • Vìa S Maria del Conforto. 22 

Tbl 0473 36133 

Mestre BOFTELLI FI.I.I C, A E SNC Corto del Popolo. 32/E 
Tri 041 57812 

Padova 

CERVED ENGINEERING SPA - C.so Stati Uniti. 14 Tri 049 760731 
MASTER COMPITERS SRL Corso Milano. 22 - Tri 049 45933 
SIC ITALIA SRL • Vìa S Pietro. 82 • Tbl 049 34984 
SYSTEM ROS SAS P.zza De Gasperi. 14 - Tri 049 18412 
SO GE DA. SPA - VU Marsahi. 29 Tbl 049 655365 
S. Doni di Piave COMIVTIMK SRL l’Uzza Rizzo. 63 Tel 0421 2548 
Schio - LINEA 4 C.S.N.C • Vìa Riva del Cristo. 4/6/6 Tbl 0445,28970 
Trento 

ATR DESIGN COLL SRL Vìa Torre Verde. 25 - Tel 0451 26872 

SEDA SAS - Vìa Sighele. 7/1 - Ibi 0461 984564 

SiGe SNC - COMPUTER SHOP Vu Prato. 22 • Tel 0461 25154 

Treviso 

DATUM SRL Via S. Bona Nuova. 3 A/C - Tri 0422 22560 
INFORMATICA TRE SRL - VUle della Repubblica. 19 Tel 0422 65993 

Trieste 

DITTA MURRI Vìa A Dui. 24/A Tbl 040 733253 
SELTED SRL - VU Fabio Filzi. 23 - Tri 040 61381 
Udine 

D.B.U. SRL VU Di Pampero. 3/7 - Tel 0432 204402 
D.B.U SRL VU Tkvsgnacco. 89 • Tel 0432 482086 

Verona 

PRAGMA SOFTWARE SRL Vu Carmelitani Scalzi. 20 - Tel 015.596400 
SFIVER SISTEMI S - Vìa Locateli!. 10 - Tel 045.W31 
Vicenza ALF'A DATA SRL VU Milano. HO Tri ni44 11865 

UMBRIA 

Perugia 

PRISMA INFORMATICA SRL - VU Campo di Marte. 4 N Tbl 075 71973 

PUCCIUFFKTO SNC VU XX Settembre. 148/C Tel 075 72992 

Terni DPS SRI. • Vu Parinotti. 6 - Tel 0744.56247 

VALLE DI AOSTA 

Aosta INFORMATRICE SAS 

Centre CommerrUI i'Amerique. S S 26 • (/uarl d’Aosta - Tel 0165 765173 


Inoltre puoi rivolgerti anche a IBM CentromilanoL.go Corsia dei Servi, 11 - TeL 02/782189, per consulenza e servizi, 
e alle filiali IBM per acquisti superiori alle 20 unità. 


IBM Italia Distribuzione Prodotti SpA 










ture, si aggiungono quelli dei team 
(linee 40-57). Il loro formato è il 
seguente: 

• nome del team; 

• numero di vetture iscritte (massi¬ 
mo 3). 

Inoltre, in riga 60, vanno indicati, 
separati da virgole, i numeri di gara 

delle vetture che compongono i vari 
team; uno dopo l’altro, nello stesso 
ordine in cui i vari team si susseguo¬ 
no. 

Rimane ora solo il problema dei dati 
riguardanti le prove speciali del rally 
(righe 82-94). Per ognuna di esse va 
riportato: 

• nome; 

• lunghezza (se uguale a zero = pro¬ 
va speciale annullata), in chilometri; 

• stato del fondo, contraddistinto 
anch’esso da un valore numerico da 
0 a 3, come segue: 

0 - asciutto; 

1 - bagnato; 

2 - innevato; 

3 - ghiacciato (o verglas). 

• tipo di fondo stradale; da sceglier¬ 
si tra asfalto (0) o sterrato (1). 
Utilizzando i dati suddetti, ed il tipo 
di pneumatici adottato di volta in 
volta, a seconda del tipo di fondo, 
viene reperita in una matrice a tre 
dimensioni una cella, contenente il 
tempo di percorrenza al chilometro 
in funzione del tipo di trazione e del 
tipo di gomme adottato, oltre che 
dello stato del fondo. Questo tempo 
viene opportunamente manipolato 
in base alla potenza della vettura, al 
ritmo tenuto nella prova speciale in 
questione, al fatto che la vettura sia 
o no in perfette condizioni, ecc. 

Il tempo così ottenuto viene molti¬ 
plicato per la lunghezza della prova 
speciale e quindi utilizzato per il re¬ 
sto della simulazione. 


REMarks 

0 - Inizializzazione di alcune va¬ 
riabili utilizzate all’interno del pro¬ 
gramma: 

NI - numero vetture iscritte, 

B - numero di team iscritti. 


Seguito programma Rally 


501 IFU>BORN<1THEN500 
5Q2 F0*0:IFU»1THEN525 

503 F0RU0=1TOU-1 :1FN<U0>=NTHENF0- 1 

504 NEXT 

505 I FF9= 1THENPRIHT " gl EFtM G 1 0 ' 3ELEZ10 

URTO”SGOTO50O 
525 N < U > =N 
550 NEXT:RETURN 

680 IFEL< J,6>O0THENKK-EL< J.-6) :EL>' J ,6> 
=0:GOTO690 
685 M1 = 12 :GOSUB990 
690 CA$=CR$ KK , 1 > 

740 PRI NTW$ < 22 > " ;3Lfì VETTURA N. I®" EL < -J , 4 
>" "EL$ < J,2 > 

750 C A$="SI RITIRfi CfìUSR "+CR$:GOSUB50 
00 :PRINTU$<23 >CRT 

755 LL--EL < J, 13 > : GR < L.L >«=GR <LL >.1 :1 FJ< 10 

RJ+DR>10THEN760 

759 PRINTWT< < J+DR.>$2+1 >TRB <. 27> " 3 -ITI 
RATO ■" 

760 GOSUB1830 :GOSUB970 :: IF J=NITI IENG0T07 
80 

765 FORK1 = 1T04 ; ET* < K1 > -ELf- < J, K1 > s NEXT : 
FORKF=0TO13 :ET< KF >=EL<J,KF >:NEXT 
770 FORFK=JTONI-1 :FORK1 = 1T04:ELT <FK,K1 
> =ELT <FK+1,K1>:NEXT 

775 FORKF=0T013 :EL <FK,KF >=EL<FK+1r KF >: 
NEXT:NEXT 

777 F0RK1=1T04:ELT<HI,K1>«ET*<KI>:NEXT 
:FORKF=0TO13 :EL <NI,KF > =ET<KF >:NEXT 
780 NI=NI-1 :NP=J:DR=DR+1 :G0T05285 
970 FORRE-0TO3 : FORPL=1T039 ; PRIN TWT<22+ 
RE > SPC PL > " 31 " ; : NEXT : NEXT : RETURN 
990 KK= I NT C RND C J+1 NT ■' RND < TI+J+G f-ST+TF+ 
TV> >>*< M1-1> +1>:RETURN 
1010 FORBII» 1TO20 : PR I NT " TRB < 33 > " C. 0. " 
1020 PR I NT " a" TRB < 33 > " ,iSP3.0.1" 

1040 PR I NT " a" TRB < 33 > " £3 i” : NEXT sRETO 

RN 

1070 H=INT <SDX3600 >:M=INT< SD/60-<H+60> 

“> 

1073 HT=RIGHTT<STRT<H >,LEN<STRT< H>>-1 > 
:M$=RIGHTT<STRT<M>,LEN <8TRT C M>>> 

1075 3= I NT < SD- CH*3600 > - < M*60 > > : ST-P. IGH 
TT<STRT<S> ,LEN<STRT<S> >-1> 

1080 C=SB~INT <SD>:CT=STRT<INT < C*10> >:C 
T=R IGHT t <: C t, LEN < CT >—1 > : RETURN 
1130 I FEL < J6 > O0THENKK.-EL C J6 > : EL, < J7 
>=0 :EL <J,9 >=0 :GOTO1137 
1135 M1 = 12 :GOSUB990 

1137 CR*=Cfì$ C KK,2>:IT=CR <KK,1>:M1 = IT 
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Le variabili suddette vengono utiliz¬ 
zate dalla subroutine 5500 per di¬ 
mensionare le variabili a più dimen¬ 
sioni utilizzate dal programma. 

1-39 - Frasi Data contenenti i dati 
statistici, anagrafici e tecnici per gli 
equipaggi partecipanti alla simula- 
Zlorte. Per II loro formato si veda 

l’articolo che compare in questo 
stesso numero. 

40-60 - Dati necessari per i team 
partecipanti alla simulazione. 
61-67- Istruzioni DATA contenenti 
le cause dei ritardi e dei ritiri. 

68-69 - Dati (espressi in secondi) uti¬ 
lizzati per simulare l’entità dei ritar¬ 
di pagati ai controlli orati e dei ral¬ 
lentamenti subiti in prova speciale 
per le ragioni delle righe precedenti. 
70-81 - Questi dati rappresentano i 
tempi di percorrenza al chilometro 
nelle differenti condizioni di tempo 
atmosferico e di fondo stradale, al 
variare del tipo di trazione e di pneu¬ 
matici adottati. Notate che, per eco¬ 
nomia, di memoria i dati non sono 
stati introdotti in forma completa, 
ma ne è stata indicata la differenza a 
40. Vengono quindi sommati a tale 
valore in sede di lettura. 

82-94 - Dati concernenti le prove 
speciali reali del rally in questione. 
Ovviamente lo stato del fondo può 
essere conosciuto, con assoluta cer- 
tezza, solo a posteriori. E però pos¬ 
sibile, con le stesse prove speciali 
indicate, per quel che riguarda lun¬ 
ghezza e tipo di fondo, simulare lo 
svolgimento dando dei valori di pro¬ 
babilità per quel che riguarda lo sta¬ 
to del fondo stesso (ad esempio 10% 
di asfalto asciutto. 40% di innevato, 
25% di ghiacciato e bagnato). 

95-98 - Vengono inizializzate altre 
variabili utilizzate all’interno del 
programma. In particolare: 

TF$() - tipo di fondo stradale, 
SF$() - stato del fondo stradale, 
TG$() - tipo di pneumatici adottabi¬ 
li, 

GR$() - gruppi iscritti, 

GR()- numero di vetture iscritte ap¬ 
partenenti ai vari gruppi. 

150-155 - Acquisizione dati sulla 
manifestazione. 
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i190 GOSUB990:EL < J,3 >=EL< J , 3 > +1T+KK:SD 
= I T+KK ; GOSUB1070 : EL < J , 12 } =EL < J12 > +SD 
12tìS PRINTW* < 22 > " i|_R VETTURA N. ■" EL < J 
4 > " " F.LT •: J , 2 > : SS=SD 
1210 CRT="CAUSA PROBLEMI "+CRS:G0SUB56 


0W : PR IHTW* < 23 > CRT ? : QT=STRT < C > 

1220 IFMO 0THENQT=MT+ " ' " +RIGHT* < " 00 " +S 
T,2 >+CHRT<34>:GOTO1222 

1221 I FSO0THENQ$=S$+CHRT < 34 > 

1222 REM 

1223 PR I NT LI* < 24 ;• " £F'AG H AL CONTROLLO OR 

ARIOsi "Q* 

1225 GOSUB1830 :GOSUB970 

1226 RETURN 

1248 FORF =1TOJC—1 

1249 FORF1=F+ITOJC 

1250 IFEL < F , CJ >C=EL < F1., CJ > THENGOTO1320 
1280 F0RK2= 1T04 : TOT < K2 >=EL.T < F , K2> : NEXT 

:FORU=©TO13 :ET<U>=ELCF,U>:NEXT 
1290 F0RK2= 1T04 :ELT<F ,K.2> =ELT<F1 ,K2> :N 
EXT : FORU=0TO 13 :ELCF., U > =EL < F1 , U > : NEXT 
1300 F0RK2=1T04 :ELT <. F1 ,K2>=T0TCK2> :HEX 
T : F ORU-0TO13 :EL <F1,U>=ET <U>:NEXT 
1320 NEXT 
1325 NEXT:RETURN 

1330 PRINT"3":SD=EL<1,Z >:GOSUB1070 
1337 VT=R IGHTT < STRT < G > ... LEN CSTRT < G > > > 
1340 IFZ=5THEHQT="J3 --LASSIFICA 

DELLA"+VT+"■ P.S. :GOTO1359 

1350 IFG>GFTHENQT="£ -LASSIF 

ICA FINALE ■"sGOTO1359 

.1355 IFG=lTHENQ$="tì “LENCO 

ISCRITTI ■"sGOTO1359 

1356 VVT=R IGHTT < STRT ■:! G-1 > , LEN <STRT< G-1 

> > > 

1357 VVT=R IGHTT < STRf < G-1 > LEN< STRT < G-1 

> > ;■ 

1358 QT=s"£( -LASSIFICA DOPO LA"+VV 

$■+"• P.S. ■" 

1359 QT=LEFTT<QT,41> 

1360 PRINTNT <1>QT 

1390 X1 T=R IGHTT < " " +STRT <EL<1..4>5,2>! 

X2T--RIGHTT < " "+STRT < H > , 2 > 

1410 X3T=R IGHTT < " 00 " +MT., 2 > : X4T=R IGHTT < 
"00"+ST.r2> 

1412 VT="1■"+ELT <1,1> 

1415 IFH=0THEN1425 

1420 XT=" "+ELT <1,3>+" N."+X1T+" IN" 

+X2T+"H"+X3T+”'"+X4T+CHRT < 34 >:GOTO1430 
1425 XT=" "+ELT<1,3>+" N."+X1T+" IN 
"+X3T+" ■' "+X4T+CHRT , '34> + " 
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Rally . 

160 - Viene offerta all’utente la pos¬ 
sibilità di simulare un rally con pro¬ 
ve speciali di lunghezza casuale e 
dati atmosferici simulati, in alterna¬ 
tiva ad un rally con dati, sia atmo¬ 
sferici che tecnici reali. 

165 - Si offre all’utente la possibilità 
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143tì X*=LEFT*<X*,33> ; IFG=-1RNDZ=31 HENX* 

=LEFT* < X* ..27 > 

1460 PR1 NT W* < 2 > " 3 " V#"-IR." OR* <EL <1, 13 
>>:PRINTX* 

1465 LM=18:1FNI<=10THENLM-N1 

1-1 p-nprì—2T ri L M—- 


di generare casualmente il tempo at- 

mosferico, pur mantenendo i dati 
reali per quanto riguarda la lun¬ 
ghezza ed il tipo di fondo delle prove 
speciali. 

170 - Si richiama la subroutine che 
provvede a leggere i dati dei vari 
team. 

200-210 - L’utente può scegliere fra 
limitarsi ad assistere allo svolgimen¬ 
to del rally o prendervi attivamente 
parte controllando fino a tre dei te¬ 
am iscritti (il che permette un utiliz¬ 
zo ludico del programma). 

255-440 - Questa sezione, che si limi¬ 
ta a richiamare due sottoprogrammi 
in serie costituisce il nucleo operati¬ 
vo del programma. 

490-550 - Questo sottoprogramma 
permette di acquisire la scelta del 
giocatore per quanto riguarda il te¬ 
am che desidera controllare, verifi¬ 
cando la congruenza della scelta, in 
modo che due giocatori non chieda¬ 
no di controllare lo stesso team. In 
particolare: 

491 - si richiama la subroutine che 
mostra la formazione dei vari team 
per equipaggi e vetture. 

680-780 - Questo sottoprogramma 
segnala il ritiro di una vettura, speci¬ 
ficandone le cause. In particolare: 
680 - mediante un test sulla variabile 
EL di chiave 6, contenente i ritardi 
precedentemente accumulati, per 
quel che riguarda la j-esima vettura, 
si stabilisce se la vettura in questione 
era già affilitta da problemi, nel qual 
caso ad essi ne viene attribuito il 
ritiro... 

685 - ... in caso contrario la causa 
viene generata casualmente. 

755 - viene stabilito a quale gruppo 
la vettura ritirata appartiene, e il nu¬ 
mero totale delle vetture apparte¬ 
nenti al gruppo relativo viene decre- 
mentato di uno. 

760 - Il test tende a stabilire se la 


1430 13=1 :GQ3UB1570 :X1*=RIGHT*<" "+ST 

R* < EL < 04 > > 2 > 

1430 X*=R IGHT* < " " +STR* <O> 2 > + ■'• " +EL* 

<0,1 > 

1495 X2*=" "+EL*<0,3>+" N. "+X1*+" R" 

+ST* 

1500 IFG=1RNDZ=3THENX2*=LEFT*<X2*,28 > 

1510 PR I NIX* "-IR." GR* < EL. < 0 ,13 > > ; PR INTX 

2$ :NEXT:GOSUB1830 

1540 IFG>GFTHENDR=0:FORJ=ITO13 :GOSUB18 

60 :GOSUB1830 :NEXT:G0SUB31000 :GOT0440 

1560 GOSUB970:RETURN 

1570 IFG=8THENST*=""sRETURN 

1580 IFEL < 0 , Z > -EL. < 13 , Z > < 1THEHST4= " UHI! 

S.T. "sRETURN 

1530 SD=EL<O,Z >-EL<18,Z >:GOSUB1078 

1535 "+H*+"H" :IFH=0THENH*=" " 

1597 M*=RIGHT*<" "+M*,2> 

1600 M*=M*+ " •' " : S1 *=R 1GHT* < " 00 " +S* , 2>+C 
HR*<34> 

1601 IFM=0RNDH=0THENM*=" " :S1*=S*+CH 

R* < 34 

1682 IFM=0BNDH=0THENM*=" ":S1*=RIGHT 

*<" "+S*,2 > +CHR* < 34 > 

1603 IFS=8fiNDM=0THENS1*=" 

1605 ST*=" " +H*+M*+S1 * : ST*=R IGHT$ < S 

T*,10> 

1630 RETURN 

1830 FORKL= 1T05000 :: NEXT : RETURN 

1869 FS=11 :1FNI<FSTHENFS=NI 

1365 IF J+DR>=FS+1THENRETURN 

1370 IFJO1THENJK=J+DR:GOSUB7200 

1875 IFJ+DR>=FSTHENRETURN 

1880 JK=J+1+DR : GOSUB?’ 180 : RETURN 

2000 PRINT"_ITMO DI GRRR PER Lfì P.S. S 
UCCESSIVR": INPUTEL<T3,2> 

2010 PRINT"MI IPO DI PNEUMRTICia" :F0RTG 
=0TO4:PRINT"j3"TG"« - "TG* <TG>:NEXT 

2815 PRINT" U^CELTR:1"; :INPUTGT 

2020 IFGT<0ORGT>4THENPRINT"Zn" :GOTO201 

5 

2030 EL<T9,3>-GT:RETURN 

2500 RE* < 1 > =r " r ~— " : RE* < 2 > = " 1 " : RE* < 3 >=" 

•-' " »F3=0 

2503 IFT30NIRNDT301 THENDT=EL <T3+1,3 > 

—FL<T9—1,3>:G0TQ2515 
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vettura ritiratasi occupava l’ultima 
posizione, nel qual caso è inutile 
spostare i dati verso il basso per far 
posto ad eventuali vetture che la se¬ 
guissero. 

765-777 - Viene compiuta l’opera¬ 
zione descritta al paragrafo prece- 

Seguito programma Rally 




2505 1 FT9= 1 THENF9= 1 : DT=EL < T9+ 1 , 3 > -EL < T 

9,3> 

" 2510 I FT2*= HI THENF9=2 ; DT=EL < T9,3 > -EL < T9 
-1 ,3> 

2515 UT=DT/24:IFF9=1THEN2520 


dente:- 

N.B. - non è possibile limitarsi ad 
“espellere" i dati della vettura ritira¬ 
ta, poiché necessari per compilare la 
classifica dei piazzamenti in prove 
speciali ottenuta dal pilota. 

780 - Si ricicla dopo aver aggiornato 
il valore indicante il numero di vet¬ 
ture rimaste in gara (NI) ed i punta¬ 
tori alla vettura corrente. 

1070-1080 - Questa subroutine si oc¬ 
cupa di convertire un tempo espres¬ 
so in secondi in ore, minuti primi e 
minuti secondi. 

1130-1226 - Questo sottoprogram¬ 
ma segnala i ritardi pagati al con¬ 
trollo orario delle varie vetture. 
1248-1325 - Routine di sort. L’ordi¬ 
namento avviene in senso crescente, 
ma viene utilizzata anche quando si 
debbono stilare classifiche che ri¬ 
chiedano un ordinamento decre¬ 
scente (ad esempio i piazzamenti 
speciale per speciale); ciò è ottenuto 
specificando, di volta in volta la 
chiave (CJ) in base alla quale va 
effettuato l’ordinamento, ed il nu¬ 
mero di equipaggi interessati al rior¬ 
dino della classifica (JC). In questo 
modo si escludono i ritirati. 
1330-1560 - Questo sottoprogram¬ 
ma viene utilizzato per stilare le clas¬ 
sifiche che appaiono sul video; sia 
quelle parziali (prova speciale per 
prova speciale), sia quella assoluta 
generale provvisoria, sia quelle defi¬ 
nitive gruppo per gruppo. 

1570-1630 - Questo sottoprogram¬ 
ma provvede a mostrare in forma 
opportuna i distacchi tra le vetture 
nelle varie classifiche che compaio¬ 
no sul video. I distacchi sono espres¬ 
si in secondi. In particolare: 

1580 - Se il distacco tra la vettura che 
ha realizzato il miglior tempo e quel¬ 
la che la segue è inferiore al secondo, 
i due vengono accreditati dello stes¬ 
so tempo (i tempi dei rally vengono 


ci J J i KL'f' \ c~ \ c. ? + K X Ul 1 1 4* i i ■•+ . u~i— •• * -■ * 

, 4 > , 2 > + "HS" : D3= INT< D1 /UT> : G0T02525 

2528 E ET C 2 > -E ET < 2 >+RIGHT * C STR* < EL <T9,4 

> > , 2 > -t- " tl W" : 03= I NT < D2/UT > 

2525 IFD3=0THEH2540 

2530 FORVT=1T0D3:RE* C1>=RE* C1>+" ":RE* 

3 > -RE* < 3 > + " ’’ : RE* < 2 > =RE* < 2 > + "J3 1" : HE/T 

2540 RE*<1>=RE*C1> + » ,-, ":RE* <2> =RE* <2 

> + "j3 SS" :RE* (. 3> =RE*C3> + " 1 - 1 " 

2543 IFF9=1THEN2550 

2545 RE*<2>-RE*<2 >+RIGHT*<STR* <EL <T9,4 

>> 2> :G0T02555 

2550 RE*<2> =RE*<2> +RIGHT *(. STR* <EL<T9+1 
,4>>,2> 

2555 IFF9=0THENGOTO2600 

2560 RE* < 2 > .-RE* C 2 > + " 1" : RETURN 

2609 RE*<2> =RE*<2> + "ai 1" :D4= INT <D2/UT> 

2610 IFD4-0THEN2622 

2621 FORVT=1T0D4:RE* <1>=RE*<1> + " ":RE* 

<3 > =RE*<3 > + " ":RE* < 2 >=RE*< 2 > + " H :NE/T 

2622 RE*<1>=RE*<1>+" ,-, ":RE*<3>=RE*<3 

-, + •> i_i « 

2623 RE* < 2 > =RE* < 2 > + " a H" +RI GHT* < STR* < E 

L <T9+1,4> >,2> + " 1" : RETURN 

3110 GQSUB1010 

3120 MI = 12 :GOSUB990:KK=INT(KK> 

3130 CA*=CA*<KK,2 >:IT=Cfì <KK,2 >sM1 = IT 

3190 EL < J r 6 > -KK : GOSUB990 : SD= < < IT+K.K > /3 

0 > : EL < J , 5 > =EL < J , 5 > +SD#L9 : GOSUB1070 

3196 EL<J,7>=EL<J,7>+SD 

3200 PRINTW*<22>"3_fl VETTURA N.S"EL<J, 

4> " "EL*-r.J,2> 

3210 CA*»"CAUSA PROBLEMI "+CA*sGOSUB50 

00 : PRINTW* <23 > CA*:Q*=C*+"/10"+CHR*<34 > 

3215 I FMO0THENQ*=M*+ " •' " +RI GHT * (. " 00 " +S 
*,2>+CHR*<34 >:G0T03219 

3217 I FSO0THENQ*=S*+CHR* < 34 > 

3219 REM 

3220 PRINTW*<24> "JÈPERDE IN MEDIA CIRCA 
: "Q*" AL KM." 

3221 GOSUB1830:GOSUB970:RETURN 

4000 FORI9®1TOB:PRINT"3"GP*SPRINT"Ha 1 

E AM :*"TE*< 19.. 1 > 

4010 FORV=1TOTECI,0>:18=1 

4020 IFI8>ATHEN4090 

4025 IFEL C 18,4 >OTE C 19 , V > THEN4040 
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il Corso di BASIC 
jÉffiK in meno d i 6 mesi 
iP*^^ ideato dagli specialisti 
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Insegna tutto quel che c'é da sapere sul 
BASIC; 

mette subito in grado di programmare; 
fornisce una guida ragionata e 
competente alla scelta del 
Personal Computer. 

ABC Personal Computer 

é il corso che risponde oltretutto alle 
esigenze di chi non ha tempo da perdere, 
perché: 

si completa in meno di 6 mesi 
si compone di 24 fascicoli 
settimanali 



















per tutti coloro 
che vogliono 
davvero “dialogare” 
col computer 


La rapida diffusione dei computer nelle 
az ien d e , n elle sc uo le , n ell e c as e ha re so 
urgente e indispensabile per molti 
imparare il linguaggio del calcolatore. Ci 
sono molti modi per farlo. Il più nuovo, 
originale,' rapido e divertente si chiama... 


ABC 

Personal Computer 

l’opera creata per rispondere alle esigenze 
di chi, per lavoro, studio, hobby vuole 
acquisire un'effettiva padronanza dei 
piccoli elaboratori per sfruttarne le 
immense, entusiasmanti possibilità. 


ABC 

Persona! Computer 

tratta il BASIC in modo diverso, organico, 
comprensibile a tutti perchè nasce dalla 
grande esperienza e dalla capacità 
divulgativa del Gruppo Editoriale Jackson. 


ABC 



Personal Computer 

è un'opera preziosa, 
comprensibile per i ragazzi, 
perchè comincia proprio dall’abc 
deH’informatica; 
ideale per i professionisti, 
perchè rapida, esauriente, concreta; 
preziosa per gli appassionati 
perchè ricca di programmi già testati, di 
suggerimenti, di notizie sul mondo dei 
piccoli computer. 


ABC 

Personal Computer 

svela i segreti del BASIC - il linguaggio 
fondamentale dei personal, home e 
microcomputer - e fornisce la chiave per 
programmare da soli. 


EDITORIALE JACKSON 

noi l’informatica 
la conosciamo davvero 


i fascicoli dovranno essere inviati a 


Nome 

Cognome 


Via 

Città 

Prov C.A.P. 


Data 

Firma 




Personal Computer 


24 appuntamenti in edicola per arricchire 
la biblioteca di casa con: 

• 2 volumi di Lezioni per complessive 
608 pagine 

• 1 volume di Computer-test 

• 1 Dizionario di Informatica di oltre 
208 pagine 

L’opera è elegantemente rilegata 
in similpelle. 

Centinaia di illustrazioni a colori, 
foto e disegni. 

Formato dei volumi cm. 21 x28. 

Formato del Dizionario di Informatica 
cm. 15x21. 


f Abbonamento-risparmio 

i- 

i Tagliando da inviare in busta chiusa a: 

I Gruppo Editoriale Jackson “ABC Personal Computer" 
via Rosellini, 12 - 20124 Milano 


I 


I 


I 

I 


Si, desidero sottoscrivere l'abbonaménto risparmio ai 24 fascicoli 
di ABC Personal Computer e alle copertine dei 4 volumi dell'opera. 
Tutto al prezzo speciale di L. 80.000 invece di L. 96.000 

Allego alla presente 

□ assegno non trasferibile di L. 80.000 a voi intestato 

□ fotocopia di versamento di L. 80.000 sul ccp n. 11666203 

□ fotocopia di vaglia postale di L 80.000 a voi intestato 
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infatti presi con una precisione infe¬ 
riore a quella delle gare su pista). 
1860-1880 - Questa subroutine è re¬ 
sponsabile del particolare effetto 
che consente di evidenziare l’equi¬ 
paggio preso in considerazione, di 
volta in volta, nel corso di una prova 
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4830 PRI NT" SJN., " EL < 1 84 >TRB<7 >EL* C 181} 
"EL*< 18,3'' 

4033 PR I HTEL* < 18,2 > - IR." GR* < EL. < 181 

3 > > 

4035 EL* C 13 ., 1 > =LEFT* < EL* < 181 > + " 



spcciìilCf usi calcolatore, tiiosiran 

done il nome della vettura. 
2000-2499 - Sottoprogramma di ac¬ 
quisizione della scelta del giocatore 
per quanto concerne il ritmo da te¬ 
nere nella prova speciale successiva 
ed il tipo di pneumatici che si deside¬ 
ra adottare. 

2500-2623 - Questo sottoprogram¬ 
ma dà una chiara rappresentazione, 
seppure schematica, dell’entità del 
ritardo della vettura controllata dal 
giocatore dall’equipaggio che la pre¬ 
cede ed il vantaggio su quello che la 
segue. 

3110-3221 - Questa subroutine se¬ 
gnala gli eventuali ritardi accusati 
da una vettura nel corso di una pro¬ 
va speciale, senza che la loro entità 
sia tale da far pagare dei ritardi ai 
controlli orari. Se l’accumularsi di 
tali ritardi intralcia il comportamen¬ 
to dell’equipaggio in gara, è possibi¬ 
le porvi riparo ricorrendo all’assi¬ 
stenza e pagando ritardi ai controlli 
orari in entità proporzionale alla 
difficoltà della riparazione. 
4000-4090 - Per ogni team iscritto al 
rally viene mostrata la composizio¬ 
ne degli equipaggi presentati dal te¬ 
am stesso. 

5265-5420 - Questo sottoprogram¬ 
ma ha funzioni di controllo e rap¬ 
presenta il cuore della simulazione. 
In particolare: 

5265 - Se sono state disputate tutte le 
prove speciali si salta direttamente 
alla parte di sottoprogramma che, 
riordinata la classifica assoluta par¬ 
ziale (che in questo caso diventa de¬ 
finitiva), provvede a mostrarla (per i 
primi dieci equipaggi). 

5267 - Si richiama la subroutine che 
riassume la situazione della prova 
speciale che i concorrenti si accingo¬ 
no ad affrontare, ricordandone la 
lunghezza ed il tipo di fondo e se¬ 
gnalando il rapporto dei ricognitori 


",. 19 l 

4036 EL* C 183 > =LEFT* < EL* < 13 3 ì + " 

"ISO 

4037 PR IHT s TE* < 19V+1 > =EL* C 181 > : TE < 19 
, TE I0 > +V > = 18 : GOTO4090 

404© 18=18+1sGOTO4020 

4090 HEXT:FORVV=1TO5080sHEXT:HEXT:RETO 

RH 

5000 CFl*--" JÈI" +LEFT*<Cfl*+ " 

" ,39} + "!!" : RETURN 

5265 IFG>GFTHEN5270 

5267 GOSUB12000 : IFTH < G0 > =0THENG=G+1 ; G 
0T05265 

5270 CJ=3sJC=NI :GOSUB1248 :GOSUB8800:Z= 

3 : GOSUB1330 :PORI = 1TOHI 

5271 FL=0 : FORU= 1TOHC : FORKW= 1 TOTE < l-l C U > , 

0> : IRTE < N<U> KW> =EL < I4>THENFL= 1 

5272 HEXT:HEXT; IFFL=1THEHFL=0sGOTO5280 
5275 GOSIJB24000 : GOSUB37000 

5280 HEXT ; GOSUB39000 : HP= 1 : J=HP ::NS= 1 

5283 REM 

5285 IFJ>HITHEHG0T05410 

5290 GOSUB1860 

5330 M1 =5 : GOSUB990 : DD=KK :: M1 = 100 :: G0SUB3 

90 ; IFKIO49THEHGOTO5350 

5340 EL=215—EL < J., 2 >+DD : GOTO5360 

5350 EL=215-EL < J2 > -DO 

5360 GOSUB25000 : EL < J5 >=L9* C T + L 200-EL < 

J1 > / < 15+HH > +RHD < TI+G > -EL < J ,• 13 > > *ELX 10 

0 

5370 EL. < .J5 > =EL_ < J5 > +EL. < J7 > *1.9 sGOSUB 1 
5000 :1FELC J,ll ><>1THEH5380 

5375 GOSUB38000 :IFDT=1THEHG0T05404 

5380 I FEL <J9 > = 1THEHGOT05483 

5400 M1 = 108 ; GOSUB990 s KK=KK+GXGF+EL J ,• 1 

3 > 11 FKK< 103+ C 100-EL C J2 > > +SF—HRTHEH5402 

5401 GOSUB1010sGOTO680 

5402 IFKKC99+ C 100-EL. C J2 > > +SF-HRTHEH54 

06 

5403 GOSUB1010 :GOSUB1130 

5404 I FSS> 1800OREL< J12 > >3600THEHGOTO2 
7000 

5405 GOTO5408 

5406 IFKK<89+ C 100-EL < J2 > !> +SF-HRTHEH54 

08 

5407 GOSUB1010 : G0SUB3110 
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per quel che riguarda lo stato del 
fondo stradale. 

5270 - Si riordina la classifica asso¬ 
luta parziale, si accede al sottopro¬ 
gramma che mostra una situazione 
schematica dei distacchi relativi tra 
le vetture e, nel caso in cui si stia 
controllando qualcuno dei team, 

permette di controllare la corsa dei 

propri equipaggi. Quindi, dopo aver 
inizializzato a 3 la variabile Z, per 
segnalare che si desidera venga mo¬ 
strata sul video la classifica parziale 
appena ottenuta tramite la routine 
di sort, si accede al sottoprogramma 
che visualizza la classifica. 
5271-5280 - Questa sezione provve¬ 
de ad inizializzare quelle variabili 
che sono responsabili dell’anda¬ 
mento delle prove speciali (ritmo di 
gara, tipo di pneumatici adottati) 
per gli equipaggi non controllati dal 
giocatore (o dai giocatori). 

In particolare: 

5275 - nel caso in cui l’equipaggio sia 
controllato dal calcolatore, si richia¬ 
mano le subroutine responsabili del¬ 
la scelta dei pneumatici in funzione 
dello stato del fondo stradale c del 
tipo di fondo stesso (24000) e delle 
scelte tattiche riguardanti il ritmo da 
tenere nell’affrontare la prova spe¬ 
ciale successiva, in base al fatto di 
essere più o meno impegnati sia nel¬ 
l’inseguimento del concorrente che 
precede l’equipaggio, sia nel mante¬ 
nere la posizione conquistata sotto 
l’attacco dell’equipaggio che segue 
(37000). 

Conclusa la routine di cui sopra, si 
richiama il sottoprogramma che ri¬ 
porta il nome della prova speciale 
che si va ad affrontare sopra Tinte- 
stazione della classifica, cancellan¬ 
do i distacchi della classifica assolu¬ 
ta parziale, in modo da far posto per 
i tempi di prova speciale che i con¬ 
correnti fanno segnare. 

5285 - Se si è preso in considerazione 
l’ultimo equipaggio, si salta alla se¬ 
zione di sottoprogramma che riordi¬ 
na e mostra la classifica della singola 
prova speciale. 

5290 - Si richiama la subroutine che 
provvede ad evidenziare l’equipag- 
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5408 ELf. J ,3> =EL< J,3>+EL < J,5> 1 1F< J+DR>< 

=10THEHGOSUB26000 

5409 J-3+1 :G0T05283 

5410 C J=5 : .JC=H I : GOSUB1248 : Z=5 : GGSUB133 

0:GOSUB30800:GOSUB32000 

5420 RETURN 


5500 Li 1 MbL* '■ H - 4 > , EL < fi , 13 > , UT < 26 > TE* < B 
, 4 > TE < E:, 6 > „ Cfi* < 122 > Cfi < 12,2 > , ET < 13 > 

5510 DIMX < fì > , X* < fi > , Q* < 3 .r 2 > ; Q* < 1, 2 >=" 

—:G*<.2,2> = " ti m ai" :Q*<3,2} = " 1 

5520 Q*<1,0>="r-, " :Q* <2^0>=” 3 W ai" 

:G!*<3,0>=" 1 -:DIMR*C4,2> 

5530 R* - 1, 2> = " flW : R* < 2, 2 > = " : R* < 4 , 

2>e" T" :R*c 10> » "jjn" ;R*<4,©> = "'"*1" 

5 5 4 0 R $20 > - " " : R * < 3,2 > = R * < 2,2 > : R * < 3, 

0 > =R* < 2,0 > 

5558 DI14 TB* <13 >:TB* <1>=" ■- 

-:TB*<13>-" ■ ... 1 

II 

5551 F0RVU=2T010STEP2 

5552 TB*<YU>«" 1 1"aT 

b*-.:vu+i>=" 1 --l" 

5555 NEXT:TB*<12> = " 1 

1 " 

5578 FORP=lTOfi:REfiDT2*:REfìDT3*:REfiDTl* 

:REfiDEL CP,4 >:REfiDEL<P,1>:RERDEL<P,10> 

5580 REfiDEL C P , 13 > : EL* < P, 1 )=T2* : EL* < P , 3 

}s=T3* 

5582 EL*< P2> =LEFT*<T1 *+ " 

"19> 

5583 EL*<P,4>=" 000000 

5586 NEXT :F0RI=1T0B :REfiDTE*< LI > :REflDT 

E <I ,8 >:NEXT:FORI = 1TOB 

5588 FOR J= 1 TOTE < I , 0 > : REfiDTE < I, J > : TE* < I 
, J+1 > := " NON QIJfiL IFI CfìTO" : NEXT : NEXT 

5589 FOR 1 = 1 T02 : FOR. J= 1TO12 : RE AD Cfi* < J , I > 

: NEXT:NEXT 

5590 FORI = 1T02:FORJ=1TO12 :REfiDCfi<J,I>: 

NEXT:NEXT 

5598 GOSUB10000 :RETURN 

6000 FORI = 1TO10000 :NEXT:RETURN 

6500 0=1 

6510 DR=0:G0SUB5265 

6520 G=G+1:GOTO6510 

7100 FOR 16= 1 TO 19 : PK*=M ID* < EL* <. J ,2 > , 10 , 

1 > : L3*=EL* •' J - 3 > 

7120 PRINTW* < JK*2-1 > TfiB <2+10 > " J3" PK* " fi" 

:NEXT:RETURN 

7200 IFG>GFTHENRETURN 

7210 FOR 10= 1 TO 19 : PK*=M ID* < L.3* , 101 > 

7220 PR I NTW* < JK*2-1 > TfiB < 2+ T 0 "> PK - * 1 : MFXT r 
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gio che sta “disputando” la prova 
speciale, sostituendo il nome del na¬ 
vigatore con il nome della vettura in 
negativo. 

5330-5350 - Viene randomizzato il 
ritmo di gara basandosi, ovviamen¬ 
te, su quello scelto dal giocatore o 
dal computer come più opportu no. 
5360 - Si richiama il sottoprogram¬ 
ma che reperisce nella opportuna 
matrice a tre dimensioni il tempo di 
percorrenza al chilometro (sceglien¬ 
do una delle due matrici, in base al 
tipo di fondo stradale, asfalto o ster¬ 
rato), al tipo di pneumatici scelto, 
allo stato del fondo ed al tipo di 
trazione della vettura. Quindi utiliz¬ 
zando questo dato (T) si calcola il 
tempo fatto segnare dalla vettura in 
questione, randomizzandolo ulte¬ 
riormente in base alla potenza in 
cavalli della vettura (l’importanza di 
questo fattore viene fatta decrescere 
col peggiorare dello stato del fondo) 
al gruppo cui la vettura appartiene, 
e ovviamente, al ritmo di gara otte¬ 
nuto dal gruppo di righe precedenti. 
5370 - Al tempo così ottenuto si ag¬ 
giungono i ritardi dovuti ai proble¬ 
mi cui non è stato posto riparo. 
Quindi si richiama un sottopro¬ 
gramma che permette di escludere le 
vetture controllate dai giocatori dal¬ 
la sezione di programma immedia¬ 
tamente seguente. 

5375 - Si richiama la subroutine che 
prende, per le vetture controllate dal 
calcolatore, le decisioni tattiche ri¬ 
guardanti la maggiore o minore 
convenienza a porre riparo ai pro¬ 
blemi di cui a riga 5370, facendo 
ricorso all’assistenza. La subroutine 
in questione non si limita a stabilire 
se si perderebbe più tempo a ripara¬ 
re il danno o proseguendo nelle at¬ 
tuali condizioni, ma analizza anche 
la possibilità che il ricorso all’assi¬ 
stenza possa comportare il rischio di 
finire fuori tempo massimo. 

5380 - Se si è fatto ricorso all’assi¬ 
stenza, si evita la sezione di pro¬ 
gramma seguente che genera casual¬ 
mente altri problemi. 

5400-5407 - Questa sezione di pro¬ 
gramma genera problemi, più o mc- 
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RETURN 

8000 GQSUB20000 : IFNC=0THENRETURN 

8003 PRINT " LT : PRINTCHR* < 142 5 : P0KE59468 
,14:F0RU=1T0NC 

8G05 F0RV=1TOTE < N < U5,0 > 

i-.in.-J-7 CilDTQ.. 1 Tl-lM T - T ETTC M ili'. '. <">l- 1 <' TQ ,1 

5THEN8100 

8008 I7=EL<T9, 135 

8009 PR I NT ” aai EfìM " TE* < N < U 5 ., 1 > : PR I NT " SI 
XETTURR N. " TE < N < U5,V 5" - |R. " GR* < 17 5 

8810 PR I NT " i)| I PO : " EL* < T9 , 2 5 : PR I NT " Il LO 

TR : "EL*<T9, 1 5 

8011 PR I NT " /RVIGRTORE : " EL* < T9,3) : IFG= 1 
THEN8055 

8014 FOR10=1TO13 : : PRINTW*<7+10 > TRB < 9 5T 

B* <10 >: NEXT : PR I NTW* < 9 > TRB <10 5 EL*<T9 ,1> 

8015 PR I NT LI* <11 5 TRB < 1 0 5 T9 " ■ " vi pT9= 1 THE 
N8025 

3017 D1=EL<T9,35-EL<T9-1 ,35 sSD=Dl :: GOSU 
B9000 

8020 PRINT "ffl" TRB < 10 5 " - " SG* : PRINT " B"TRB 
<105EL*<T9-1,15 

8025 IFT9=NITHEN8040 

8027 D2=EL<T9+1 ,3 > -EL < T9, 3 > : SD=D2 : GOSU 
B9060 

8030 PRINT "H" TRB < 1 05” + " SG* : PR I NT "W TRB 
< 10 5 EL* < T9+1,15 

8040 GOSUB2500 :: PR INTW* < 20 > : FORVT= 1 T03 : 

PR INTRE* < VT > : NE NT : FORVT= 1 TO 10000 :: NEXT 

8045 IFG>GFTHEN8100 

8050 PR I NT " ZI" GP* : 17=EL < T9,13 5 

8051 PR I NT " filai ERM " TE* < N < U > , L 5 : PR I NT " Il 
XETTURR N. " TE < N < U 5,V5 " - IR. " GR*<175 

8052 PRINT"H| IPO : "EL*<T9,25 :PRINT"~1IL0 

TR : "EL*<T9, 1 5 

8053 PRINT " /RVIGRTORE :" EL* < T9,3 > 

8054 PR I NT " _ITMO DI GRRR : "EL<T9,25 

8055 GOSIJB2000 : EL < T9,9 5=0 IFEL < T9,7 5 =0 
THEN8100 

8060 PRINT " S“EVI FRR RICORSO RLL'RSSIS 
TENZR" 

8070 PR I NT " < S/N 5 " : INPUTRR* : I FRB*0 " N " 
RNDRfl*0 " S " THENPRI NT ".TI" : GOTO8070 

8080 I FRfì*= " S " THENEL < T9,9 5 = 1 

8100 HEXTT9sNEXT 

3110 NEXT 

8999 PRINT ": PRIHTCHR* < 145:RETURN 

9000 GOSUB1070 : SG*=""sìFM=0THEN9815 

90 1 3 SG*=SG*+R IGHT* < M* LEN < M* 5 5 + " ' " 

9015 IF3=0THEN9020 

9016 IFM=@THENSG*=SG*+S*+CHR* < 34 5 : GOTO 
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Rally 

no gravi, e addirittura ritiri con pro¬ 
babilità di rischio tanto maggiori 
quanto più elevato è il ritmo tenuto 
dall’equipaggio in questione. Le 
probabilità suddette sono anche più 
elevate per i gruppi più spinti (B e A) 
rispetto al gruppo N e vanno grada¬ 
tamente aumentando con il prose¬ 
gu i re della ga i a). — 

5408 - Il tempo fatto segnare in pro¬ 
va speciale viene aggiunto ai tempi 
delle prove precedenti per il j-esimo 
equipaggio, quindi, se la vettura in 
questione occupa una delle prime 
dicci posizioni, il tempo fatto segna¬ 
re in prova speciale compare a fian¬ 
co dell’equipaggio (subroutine 
26000). 

5409 - Si ricicla per esaminare un 
altro equipaggio. 

5410 - Si accede alla routine di sort 
con opportuni indici di chiave in 
modo da riordinare la classifica del¬ 
la singola prova speciale, la si mo¬ 
stra su video quindi si richiama la 
subroutine che provvede (solo per i 
primi sei) ad aggiornare la classifica 
delle posizioni ottenute in prova 
speciale. 

5500-5598 - Subroutine di dimensio¬ 
namento ed inizializzazione. In par¬ 
ticolare: 

5500-5510 - Vengono dimensionate 
le seguenti matrici: 

EL$ - contiene i dati anagrafici degli 
equipaggi (nomi del pilota e del co- 
pilota, nome della vettura). 

EL - Contiene tutti i dati numerici 
concernenti i vari equipaggi. Tra gli 
altri: 

0 - flag, 

1 - potenza in cavalli, 

2 - valore percentuale esprimente il 
ritmo di gara, 

3 - tempo totale di gara (in secondi), 
ottenuto sommando i tempi fatti se¬ 
gnare in prova speciale, 

4 - numero di gara, 

5 - tempo fatto segnare nell’ultima 
prova speciale, 

7 - ritardo (in secondi al chilometro) 
per problemi sopravvenuti, 

8 - tipo di pneumatici scelto, 

9, 11 - flag, 

13 - gruppo cui la vettura appartie- 
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9020 

9017 SG$:=SG$+R I GHT$< "00 " +S$ , 2 > +CHR* < 34 

> 

9020 IFH>0THENSG*=H$+"H"+SG$ 

9025 SG$=LEFT$<SG$,9> 

9030 SOT--LEFTT v SGf9 > : IF S=- 0 A N D M - 9 A N D H - 

0THENSG*»"H S.T. 

9040 RETURN 

10000 01 MAS< 3,44 :> , AP 34,4 > , ST < 34,4 > 
, SP ti 3 r 4,4 } 

10910 FORSF=0TQ3:FORTG=0TO4:FORTV=0TO4 
: READE : AS < SFTG , TV > =E+40 : NEXTTVTG r SF 
10030 FORSF=0TO3:FORTG=0TO4:FORTV=0TO4 
: READflP < SFTGTV > : NEXTTV , TG , SF 
10050 FORSF=0T03:FORTG=0TO4: FORTV=0TO4 
: READE : ST < SF , TG... TV > =E+40 : NEXTTVTG r SF 
10670 FORSF=0TO3:FORTG-OT04:FORTV=0TO4 
: READSP < SF,TG, TV > : NEXTTVTG , SF 

10999 RETURN 

11000 DI NT NT < GF > TW < GF2 > : F OR V= 1TOGF :R 
E Fi UT NT < V > : READTW < V , 0 > : READTW < V1 > 

1 3.999 READTW C V , 2 > : NEXT : GOSUB28000 : RE TU 
RN 

12000 IFRNT<0 >="S"THENGOSUB13000 :GOSUB 
14080 : GOTO12020 

12010 PRINT"23"GPT :PRINT" gì" G"If P. S. - 
"TW$<G> 

12013 IFTW < G0 >O0THENPRINTW$ < 5 > " J3ANNUL 
LATRI":GOTO12999 

12015 L.'3=TW C G , 0 > : PR INTWT < 5 > " LUNGHEZZA : 
"LA"KM" 

12017 TF=TW<G,2>:SF=TW<G,1>: IFRN$C 1 > = " 
S"THENGOSUB14000 

12020 PRINTW#<7>"I IPO DI FONDO STRADAL 
Es M TF»<TF> 

12030 PRINT"*TATO DEL FONDO STRADALE:" 
SF$<SF> 

12999 GOSUB1330 :RETURN 

13000 L9=RNP ■ r T s *30+10 : L9= I NT < I 9* ) 000 > 
/1 000 

13005 PR I NT " □" GP$ : PR I NT " ffl" G " HIT P.S.":P 
RI NT NT < 5 > "l JJNG MEZZA " L.9 " KM " 

13010 TW < G , 0 =L9 : FT=RND < TI > * 100 : G0SUB2 
9000 :RETURN 

14000 FS=RND<TI> * 100 :SF=0:U=0 
14010 I FFS<PF < U > THENSF=U : RETURN 
14020 U=U+1 :GOTO14010 

15000 FL-0 : FORU-1 TONO : FORKW= 1 TOTE (. N <U > 
, 0 > : IFTE < N '• U > , KW > -EL < J... 4 > THENFL--1 
15010 NEXT:NEXT:IFFL=1THENFI =0 : RETURN 
15020 ELCJ.11)=1:RETURN 
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ne, 

W$ - Vettore gestione cursore video, 
TE$,TE - Dati alfanumerici e nume¬ 
rici concernenti i team, 

CA$,CA - Cause di problemi e ritiri 
(denominazione e tempi), 

ET - vettore utilizzato come buffer 

_ dalla routine di sort nei trasferimen- 

ti di dati, 

X,X$ - altri vettori di appoggio nei 
trasferimenti di dati, 

Q$ - vettore alfanumerico contenen¬ 
te i caratteri grafici utilizzati nella 
rappresentazione grafica dei distac¬ 
chi. 

5520-5530 - Inizializzazione del vet¬ 
tore alfanumerico Q$. 

5550-5555 - Dimensionamento ed 
inizializzazione del vettore TB$, 
contenente i caratteri grafici neces¬ 
sari per realizzare il tabellone rias¬ 
suntivo della posizione del singolo 
equipaggio controllato dal giocato¬ 
re. 

5578-5590 - Vengono letti e giustifi¬ 
cati i dati da inserire nei principali 
vettori sopra descritti, vengono in¬ 
oltre inizializzati alcuni campi degli 
stessi vettori (ad esempio EL(P,4) 
contenente, in forma riassuntiva, i 
piazzamenti ottenuti da ciascun 
equipaggio in prova speciale - limi¬ 
tatamente a quelli tra i primi sei). 
5598 - Prima di riciclare si richiama 
la subroutine che provvede a leggere 
i dati riguardanti i tempi al chilome¬ 
tro per i vari tipi di fondo ed i dati 
caratteristici della manifestazione - 
nomi e lunghezze delle prove specia¬ 
li, tempo atmosferico reale e stato 
del fondo. 

6500-6520 - ciclo che permette di 
richiamare le subroutine che con¬ 
sentono di disputare una singola 
prova speciale, in modo da disputa¬ 
re tutte quelle previste dalla gara (o, 
a scelta, desiderate dal giocatore). 
7100-7120 - Questo sottoprogram¬ 
ma provvede a sostituire il nome del 
navigatore con quello della vettura 
in negativo. 

7200-7220 - Questa subroutine com¬ 
pie l’operazione inversa a quella del 
sottoprogramma precedente, evi¬ 
denziando, così, quale equipaggio 
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17000 F0RXK«b 33528T033?t>8 :POKE*K - 1= ' 

T : RETURN 

20006 I FG= 1 THENRETURrl 
20003 PRI NT ” 3" • PRIKTCHR ? < 1 ■' 

20005 1 R=2 : i -1 :C3«2C-!0~N 1*4:UM= <ÈL<HI , 
3>-£L< 1. ■ 3 

2W0 , • i I i ■ ORCO» 1 TOHì - 1 : X< OC > ~ I HI < < ÉL 

. < re +• ? ? > »EL < OC, 3 > > /UH > :: 1H-~EL < CC+1 , 3 > 

2301 5 XT < CO > =R IGHTT <8TRT < EL < CC 4 > > , 2 > : 
NEXT 

20017 XT < NI >—RI GHTT <STR* E!. •" N1 r -4 ? .* 3 ' 
20020 VS=1 : FORCO»! TONI :SV= IN' r CVS ? - L 
20025 FOR1 = 1T03 : ZT CD-JM, 8 V ; NE X • 
20030 1FCC-=1 T HFN2T<3>’ jS# 

20035 IFCC—HI RNDVS»~iTHE? 1ZT <2 > = " 1 & P 

ft 

2004H 1FCC-N1AHDVS* 1THEH2T•:2>=“3 « I ” 
20942 FVS«-1THEN20500 

23343 FOR I -1 03 : PR IHTWT •. I R~ 2 :• I > TRB C IC > 
ZT< I : HE XT rPRIH T WT<: IR>TfìB- IC+-1 >XTCCC> 
20040 1 FCCssH 14 HEN20999 

20047 IC-IC+4 :N9=XC CC >:N8=N9 

20048 lF38-<N9+IO<4THENN9=38-IC 
29949 IF N9+1O=33THENG0SUB21980 :G0T029 

998 

20950 FOR J=0TON9-1 : PR IHTWT < IR > TRE: < I C+.J 
>"S ■":NEXT: IC=IC+N9:G0T029998 
20580 FOR I = 1T03 3 PR I NTWT< IR--2+1 > TRB< IC- 
4 > ZT<I>:NEXT 

20505 PRIHTWT <IR>TRB CIC-3>XT <CC> 

20507 IFCC=NITHEN20999 

20510 IC=IC-4:N9=X<CC >:H8=N9 

20517 IFIC-N9<5THENN9=IC-1 

20519 IFIC-N901THENGOSUB22000:GOTO209 
98 

20520 FORT-1T0N9:PRIHTWT <IR >TRB<IC—J >" 
B 1":NEXT: IC=IC-H9;GGTO20998 

29998 HEXT 

20999 GOSUB32500 :: PR I NT " □" : PR IHTCHRT < 14 
> : RETURN 

21000 FORJ=0TO37-1C:PRIHTWTCIR>TRBCIC+ 
J>"a ■":NEXT 

21010 F0RI=1TG4:PRINTWT<IR-l+I>TRBC38> 
RT < I SV > " II” : NEXT : I R= IR+3 : VS=-VS 
21020 CN=N8+IC-38 : IC=38:IFCN<»0THENRET 
URN 

21026 IFIC- C N <5TH E NCM=IC-1 
21927 IFIC-CN<=1THENN8=N8—38sGOSUB2300 
0sGOTO22000 

21030 FOR J-1TOCNsPRIHTWT<IR >TRB <IC-J>" 
IH 1" : NEXT : I C= IC-CN : RETURN 
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sta affrontando la prova speciale. Il 
test di riga 7200 evita che questa 
seconda routine venga attuata nel 
caso in cui venga mostrata la classi¬ 
fica finale, sulla quale, quindi, appa¬ 
re il solo nome del pilota, seguito da 
quello della vettura (in negativo). 
8000-8999 - Questo sottoprogram- 
ma viene eseguito solo nel caso in 
cui si controlli uno dei team. In par¬ 
ticolare: 

8000 - Si richiama la subroutine che 
fornisce una rappresentazione grafi¬ 
ca dei distacchi tra una vettura e 
l’altra. Quindi si esegue il test che 
permette di stabilire se si sta effet¬ 
tuando una simulazione vera e pro¬ 
pria o se si sta “giocando" al diretto¬ 
re sportivo. 

8003-8040 - Squadra per squadra, 
equipaggio per equipaggio, viene 
mostrata la attuale situazione di ga¬ 
ra, sia in relazione agli avversari con 
cui si è a diretto contatto, sia in for¬ 
ma grafica. 

8045 - Se il rally è concluso si salta 
all’ultima parte della subroutine. 
8050-8080 Si offre al giocatore la 
possibilità di influire sul prosegui¬ 
mento della gara per le vetture da lui 
controllate, scegliendone il ritmo, il 
tipo di gomme da adottare e, in par¬ 
ticolare: 

8055 - Si accede alla subroutine che 
permette di segnalare quale ritmo di 
gara si desidera tenere nella prova 
speciale successiva e che tipo di 
pneumatici si vuole adottare. Quin¬ 
di si azzera la variabile associata al 
j-esimo concorrente e che fa da flag 
della decisione di far ricorso all’assi¬ 
stenza. Se la vettura in questione 
non presenta problemi di sorta si 
salta la successiva sezione del pro¬ 
gramma. 

8060-8080 - Si offre la possibilità al 
giocatore di segnalare il desiderio di 
far ricorso all’assistenza per porre 
riparo ai danni in cui la vettura è 
incappata. Se la risposta è positiva 
la suddetta variabile flag di indice 9 
viene posta a 1. 

9000-9040 - Routine di servizio uti¬ 
lizzata per quantificare i distacchi 
nella realizzazione del tabellone di 
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22000 FOR I -1TOIC-1 :PRINT!4$ < IR > TRE C IC~..J 
>".$ 1" :NEXT 

22010 F-'OR 1 = 1 T04 : PR I NTW$ < I R~ 1 +1 > R$ < ISV 
:■ ; NEXT : IR=IR+3 :VS=-VS 
22028 CN=H3—IC:IC=1 :1FCN=03THENRETURH 
22026 IF38-<CN+1C ><5THEHCN=33-1C _ 

2202 ? IFCN+1 C>-=38THEHHS=NS—38 : GOSUB230 
00 :G 0 T 021000 

22030 FOR I--0TOCTI-- 1 : PR I NTW$ < IR > TRE C I C-i J 
>"a ;NEXT:IC=IC+CN:RETURN 

23800 IFSV=0THENSV=2:RETURN 
23010 IFSV=2THENSV=0:RETURN 
24000 IFTF=1THEN24500 
24010 EL<I,8>=SF : RETURN 
24500 IFSF=0THENEL<I,8>=4 :RETURN 
24510 I F3F=10RSF=2THENEL < I.. 8 > =2 ; RETURN 
24520 IFSF=3THENEL<I,8>=3 :RETURN 

24999 RETURN 

25000 HH=<TF+SF>#5 :1FTF*1THEN25500 
25010 TG=EL J , 8 > : TV=EL C. J , 10 > : T=RS < SF , T 

G , TV > *1.1 +RND < T > : HR=RP < SF , TGTV > : RETURN 
25500 TG=EL< J ,8 >:TV=EL<J,10 >5 T=ST <SF,T 
G,TV >#1.1+RND<T >:HR=SP<SF,TG,TV >:RETURN 
26000 SD=ELCJ,5>:GQSUB1070 
26005 H$=" "+H$+"H"sIFHC1THENH*=" 

II 

26010 M$=H$+M$+ " r " : S1 $=R IGHT$ < "00 "+S$ , 
2 > +CHR$ 34 > 

26015 I.FM=0RNDH=0THENM4>= " " :S1$=S$+C 

HR$ 34 !•' 

26020 IFM=0RNDH=0THENM#=" ” ;S1$=RIGH 
T$ C " " +S$2 > +CHR* <■. 34 > 

26030 IFS=0RNDM=0THENS1$=" 

2604© IFHC1THENST:ì : = " "+M#+S1*+" 

"sGOT026045 

26043 ST$=" "+MT+S1T 

26045 ST:r=R IGHT* < STT , r 12 > 

26050 PR I NT 14$ C C J+DR >*2+1 > TRE < 27 > ST$ :: RE 
TURN 

27000 PRINT m< 22> " SLR VETTURA N. ■"EL<-J 
,4>" "EL$< J..2> 

27010 PR I NT 14$ C. 23 > " aTRRNS I Tfì RL - C. O. FU 
ORI TEMPO MASSIMO 1" 

27020 GOSUB1830 :GOSUB970:G0T0755 
280G0 I FRH$ C 1 > = " N " RNDP.NT < 0 > = " N " THEHRET 
URN 

28001 IFRN$ < 0> = "N"THEN28020 
28005 PRINT"PERCENTUALE DI PROVE SPECI 
ALI SU TERRA":INPUTP1 
28010 IFP1>100THENPRINT" ZH" :GOTO28005 
28020 FORU=0TO3:PRINT"PROBABILITA" PER 
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BP5420 


stampante professionale 
ad alta velocità 



Con l’avvento 
della Business 
Printer 5420, 

Seikosha entra di 
prepotenza nella fascia 
medio-alta di utenza di stampanti 
seriali a matrice di punti. Le prestazioni di 
periferica altamente professionale, rappresentano 
il compendio ideale fra una velocissima stampante 
seriale a matrice e una stampante a margherita. La 
BP5420 è infatti una stampante duale: l’originale 
meccanismo di stampa concepito da Seikosha 
consente prestazioni elevatissime in Data Proces¬ 
sing Mode (420 CPS) e altrettanto inusitate nella 


produzione di 
Correspondence 
Character Quality 
(104 CPS). Massima 
affidabilità e sicurez¬ 
za sono garantite 
dall’utilizzo di una tec¬ 
nologia di stampa uni¬ 
ca che minimizza l’usura 
tipica riscontrabile negli 
aghi e negli elettromagneti necessari per lanciarli, 
grazie ad un dimensionamento meccanico ottima¬ 
le che migliora nettamente robustezza e durata 
della testa. 


COMPUTER 


OIVISION or GBC 


SEIKOSHA 


Caratteristiche: 

• Stampante ad impatto a matrice di punti da 
136 colonne 

• Matrice di stampa 9x8 (densità 10 cpi) e 17x16 
(densità 10 cpi in esecuzione carattere 
corrispondenza o italico) 

• Percorso di stampa bidirezionale con 
ottimizzazione del percorso (anche in stampa 
grafica) 

• Capacità grafiche: bit image standard n 
(orizzontale) x 8 (verticale) (n=816) e bit image 
alta risoluzione n (orizzontale) x 16 (verticale) 
(n=1632) 

• Possibilità ripetizione automatica di un 
carattere grafico 

• Velocità 420 caratteri/secondo (104 caratteri/ 
secondo con matrice 17x16 in esecuzione 
carattere corrispondence 

• Caratterizzazione: 10, 12 e 16 cpi e relativi 
espansi; 10 e 12 cpi in corrispondenza quality e 
relativi espansi; 10 cpi italico e relativo 


espanso; super e sub scritture in densità 
20 cpi e relativi espansi; set di carattere 
proporzionale; sottolineato 

• Interfacce: parallela Centronics e seriale 
RS232C 

® Alimentazione carta: trattori (larghezza modulo 
continuo variabile da 5 a 15,5”) e frizione 
(larghezza foglio singolo fino a 11”) 

• Stampa 1 originale e 4 copie 

• Set di 95 caratteri ASCII e 64 caratteri e 
simboli europei 

• 4 Generatori di caratteri nazionali selezionabili 
via dip switch 

• Consumo 55W (standby) o 175W (stampa) 

• Livello di rumore: inferiore a 60 dB 

• Durata di vita testa: 500 milioni di caratteri 

• MTBF: 800 ore (esclusa vita testa) 

• MTTR: 30 minuti 

• Peso: 23 KG, 

• Dimensioni: 405 (prof.) x 595 (largh.) 

x 185 (alt.) mm; prof. 580 con separatore carta 

• Nastro: colore nero su cartuccia dedicata 











Rally 

subroutinc 8000. 

10000-10999 - Dimensionamento e 
lettura dei dati riguardanti i tempi di 
percorrenza al chilometro. Si può 
notare come essi vengano sommati a 
40, in questo modo è possibile ri¬ 
sparmiare una cifra nelle frasi DA¬ 
TA. Vengono inoltre letti i coeffi¬ 
cienti correttivi di rischio utilizzati 
per randomizzare le probabilità di 
avere problemi; questi coefficienti 
sono diversi da zero solo se la scelta 
di pneumatici effettuata è errata, e 
tanto più alti quanto più l’errore è 
grave (coefficiente 0 se si scelgono 
pneumatici “rain” per l’asfalto ba¬ 
gnato, 1 se si montano gomme chio¬ 
date per lo stesso tipo di fondo, ma 9 
se si affronta l’asfalto ghiacciato con 
le “slick-racing”). 

11000-11999 - Dimensionamento e 
lettura dei dati riguardanti le prove 
speciali “reali”. 

12000-12999 - Questo sottopro¬ 
gramma ricorda i dati della prova 
speciale seguente e fornisce il rap¬ 
porto dei ricognitori sullo stato del¬ 
la sede stradale. In particolare: 
12000 - se si è scelto di utilizzare dati 
completamente casuali si richiama¬ 
no le due subroutine che provvedo¬ 
no a generare casualmente la lun¬ 
ghezza della prova speciale seguen¬ 
te, e a stabilirne il tipo di fondo ed il 
suo stato in base alle percentuali di 
probabilità indicate dal giocatore. 
12013 - Se il valore indicante la lun¬ 
ghezza della prova speciale è nullo 
viene segnalato l’annullamento del¬ 
la prova stessa. 

12017-11 test stabilisce se si è scelto 
di disputare le “vere” prove speciali 
del rally con dati atmosferici casua¬ 
li, nel qual caso richiama la oppor¬ 
tuna subroutine. 

13000 - Questo sottoprogramma ge¬ 
nera casualmente la lunghezza delle 
prove speciali, nel caso si sia scelta 
questa opzione. La lunghezza delle 
singole prove varia da un minimo di 
10 chilometri ad un massimo di qua¬ 
ranta. Quindi (GOSUB 29000) si ri¬ 
chiama la subroutine che stabilisce 
se il fondo stradale è sterrato o asfal¬ 
tato. 



Seguito programma Rally. 


CEH TUfiL I DI FONDO " : PRINTSF t < U > ; 

23038 I HPUTF'F <IJ ■ :NEXT 

23040 TP=0:FORU=0TO3:TP-TF h FF-: U:.':NE: :1 : 
FORU=0TO4sRF<U>=PF <U> *1O0/TP :NEXT 
23045 PT=0 : FORU=0TO3 :PF< IJ > -PF < U> +PT :PT 
=PT+PF<U>:NEXT 
28050 RETURN 

29000 TFss 1 :1FFT>P 1THENTF---0 
2901.0 RETURN 

30000 FORQ=1TOSsELCQ,0>«EL<Q,0>i10t<1 
Q> :TTT=ELT<Q,4> :SST=LEFTf <:TTT,G*2> 

300 1 0 DDT=R I GHT T < TTT ,16- <Q+1 > +2 > : 7T=VR 
L <MIDT < TT (, 0*2+1.2> > +1 
30020 TTT=STRT<TT >:TTT=RIGHT*< TTT,2 >:E 
LT<Q,4>=SST+TTT+DDT:NEXT:RETURN 
31000 GO3UB34000 : GOSUB36000 : C J-8 : JC=A : 
GOSUB1248 :16=fi:15=1 ;GOSUB33000 
31010 IF15=10THEHGOSUB32000 s15=1 ;GOSUB 
33000 

31020 IFEL •' 16 .. 8 ? =0THENGOSUB32000 : RETUR 
N 

31030 PR I NT NT < 15*2+3 > ELT < 16 , 1 > : FOR14=--1 
T06 : TTT=M IDT < ELT 16,4 > , 14*2+1 , 2 > 

31040 PRINTHT<I5*2+3>TRB<17+3*I4>TTT:N 
EXT : 15=15+1 :16=16-1 :G0T031010 

31999 RETURN 

32000 PR I NT NT < 24 > TRB < 2 > 11 3PREM I QURLSIR 
SI TASTO PER PROSEGUIREI" 

32010 GETVT-: IFYT=""THEN32010 
32820 YT="":GOSUB970:RETURN 
32500 PR INTHT <25 > TRB <2 > " JgPREM I QURLS IR 
SI TASTO PER PROSEGUIREBOSI" 

32518 GETVT: IFVT=""THEN32510 
32520 VT="":RETURN 

33000 PR I NT " GPT : PR INTTRB < 2 > " j&, PI fiZZ 
AMENTI NELLE PROVE SPECIALI*" 

33010 PR I NT NT < 3 > " J81I LOTO " TRB < 21 > " 1. 2,. 
3. 4. 5. 6. "5RETURN 

34000 FORU=0TO2:QT=" -LASSIFIC 

fi FINALE - |R."+GRT<U>+" ■" 

34003 IFGR<U> =0THEN34998 
34005 19=1 : GOSUB35000 :SD=ELf. I9,3> :G0SIJ 
B1070 

34010 QT=LEFTT<QT,41>:PRINTWT<1>QT 
34O20 X1 T=R I GHT * < " "+STRT-:EL< I9,4> >,2 
> : X2T=RIGHTT<” "+STRT < H > ,2> 

34030 X3T=RIGHTT<"00"+MT,2 >:X4T=RIGHTT 
<"00"+ST,2> 

34040 VT= " 1 “ ” +EL.T< 19,1 > + " < " +RIGHTT<STR 
T C19 >,2 > + "■>" 

34050 IFH=0THEN34070 
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14000-14020 - Questo sottopro¬ 
gramma genera casualmente lo sta¬ 
to del fondo stradale, basandosi sul¬ 
le percentuali di probabilità fornite 
daìrutente. 

15000-15020 - Routine di servizio. 
Segnala, tramite una variabile flag 
EL(.J,11), se l’equipaggio j-esimo è 
sotto il controllo del calcolatore o 
del giocatore (o di uno dei giocatori) 
in modo che possano essere evitate, 
ad esempio, le routine che, all’inter¬ 
no della subroutine 5265-5420, ope¬ 
rano la scelta del ritmo da tenere 
nella prova speciale successiva o dei 
pneumatici da adottare, in modo da 
non modificare la scelta già operata 
dal giocatore. 

20000-23010 - Serie di subroutine 
utilizzate per la realizzazione della 
rappresentazione grafica dei distac¬ 
chi. 

24000-24999 - Subroutine di selezio¬ 
ne del tipo di pneumatici da adotta¬ 
re. In particolare: 

24000-24010 - Scelta dei pneumatici 
in caso di fondo asfaltato. Come si 
può notare il numero che contraddi¬ 
stingue il tipo di pneumatici adatti 
coincide con il numero che contrad¬ 
distingue lo stato del fondo (SF). 
24500-24999 - In questo caso, è ne¬ 
cessario compiere dei test per stabi¬ 
lire quali siano i pneumatici più 
adatti. Non analizziamo in dettaglio 
la routine per non fornire preziosi 
suggerimenti ai giocatori. 
25000-25500 - Questa routine richia¬ 
mata dal nocciolo centrale del pro¬ 
gramma, “legge” nella opportuna 
cella delle matrici tridimensionali 
più volte citate i dati riguardanti il 
tempo al chilometro e la pericolosità 
insita nella scelta di pneumatici ope¬ 
rata, come detto più sopra. In 25000 
viene anche calcolato il coefficiente 
correttivo che diminuisce l’impor¬ 
tanza del fattore di potenza al peg¬ 
giorare dello stato del fondo. 
26000-26050 - Questa routine mo¬ 
stra, a fianco dei primi dieci concor¬ 
renti della classifica assoluta provvi¬ 
soria, il tempo fatto segnare nella 
prova speciale che si sta disputando. 
27000-27020 - Sottoprogramma di 


Seguito programma Rally. _ 

34060 X$=" "+EL$<I9,3>+" N."+X1$+" I 

H " +X2$+ "H" +X3$+ " ' " +X4$+CHR$ < 34 > :GOTO340 

30 

34076 X$=" ”+EL$09,3) + " N."+X1$+" I 

H " +X3*+ " ' " +X4*+CHR$ <34 > + " 

34080 X*=LEFT$ <X*,39 > 

34090 PRI NTWf < 2 > " J5I " Y$ : PRINTX* 

34093 LM=10:IFGR<U><=10THENLM=GR<U> 

34100 13=19:17=2 :FORG=18+1TONI :IFEL C O , 
13 5 OUTHEN34150 
34105 IFI7>LMTHEN34150 

34110 GOSUB1570 :X1 T=R IGHT$<" "+STRT<E 

L < O r 4 > > .r 2 > 

34120 X$=RIGHT$<" "+STR^< I7>"+E 
L*< 01> + "<"+RIGHT $ <STR*<O >,2 > + "■>" 

.34130 X2$=" “+EL$<0,3>+" N. "+X1$+" R 

"+ST$ 

34140 PRINTX$:PRINTX2T: 1 7- 17+1 
34150 HEXT:GOSUB32000 
34998 NEXT:RETURN 

35000 IFEL <19,13>OUTHEN19=19+1:GOT035 
000 

35010 RETURN 

36000 PRIHT"3":PRINTW$<3>"*T0 RIORDINR 
HDO LR TRBELLR DELLE P.S.RETURN 
37000 SV=99999:VR=99999:1FI = 1THEN37030 
37025 SV=EL < I3 > -EL < I-1 , 3 > 

37030 IFI=NITHEN37050 
37045 VR=EL <I +1,3 >-EL <I,3> 

37050 DD=SV:IFVfl=<SVTHENDD=Vfì 
37060 DD=< DD/60>-< GF-G >/10 :EL <I,2 > = 103 
-DD/1.5 :RETURN 

38000 DT=0:1FEL < J-6 >=0THENRETURN 
38003 LE=< GF-G >*30*EL<J , 7 5 :DX=CR <EL < J, 
6>,15*1.5sIFLE<DXTHENRETURN 
38005 IFDX>1S00THENRETURN 
38007 IFDX+EL<J,12 >>3600THENRETURN 
380 3.0 DT= l : GOSUB 1G10 : GOSUB 3.130 : RETURN 
39000 GOSUB32000:FOR19=1TO10s FORJ9=0TO 
11 :P0KE32796+19*30+J9 r 32 
39010 NEXT:NEXT: IFRN$ < 0 5 = " S "THENRETURN 
39020 Q$= ,, ja ,, +STR$<G5 + "' P.S. - "+TW$<G 
> + •• " : Q$=LEFT$ < , 4 

05 

39030 PRINTNT<1>:RETURN _ 


servizio, segnala l’uscita di un equi¬ 
paggio per fuori tempo massimo. 
28000-28050 - Acquisizione delle 
percentuali di probabilità nel caso in 
cui si sia scelta una simulazione con 
dati “casuali” anche per quel che 


riguarda il tipo di fondo, oltre che il 
suo stato. Ovviamente viene chiesto 
di indicare le sole percentuali di pro¬ 
babilità di incontrare prove speciali 
su terra. 

29000-29010 - La breve sobroutine 
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in questione stabilisce, partendo 
proprio dalla percentuale suddetta, 
se la prova che si va ad affrontare è 
su terra o su asfalto (nel solo caso, 
ovviamente, di rally a percorso “se¬ 
greto”). 

30000-30020 - Questo sottopro¬ 
gramma si occupa di aggiornare i 
dati riguardanti i piazzamenti nelle 
speciali (limitatamente ai primi sei), 
compiendo delle operazioni non su 
variabili numeriche ma, per ragioni 
di economia di memoria, alfanume¬ 
riche. 

31000-31999 - Questo sottopro¬ 
gramma si occupa di richiamare al¬ 
tre subroutine per mostrare i rias¬ 
sunti conclusivi della manifestazio¬ 
ne, vale a dire classifiche finali di 
gruppo (GOSUB 34000) e tabella 
riassuntiva dei piazzamenti nelle 
speciali. 

34000-34998 - Display delle classifi¬ 
che finali per i tre gruppi (nel caso in 
cui non vi siano equipaggi superstiti, 
la routine viene, ovviamente, saltata 
per il gruppo in questione). A fianco 
del nome dell’equipaggio, tra paren¬ 
tesi, viene indicato il piazzamento 
raggiunto nella classifica assoluta. 
37000-37060 - Questa subroutine 
opera le scelte tattiche per quanto 
riguarda il ritmo da tenere. In parti¬ 
colare: 

37000 - Se l’equipaggio in esame oc¬ 


cupa la prima posizione, l’analisi 
viene limitata al vantaggio sulla vet¬ 
tura che segue. 

37025 - Viene calcolato lo svantag¬ 
gio dell’equipaggio i-esimo dalla 
vettura che lo precede. 

37030 - Se l’equipaggio in esame oc¬ 
cupa l’ultima posizione, l’analisi si • 
limita allo svantaggio dalla vettura 
che lo precede. 

37045 - Viene calcolato il vantaggio 
dell’equipaggio i-esimo sulla vettura 
che lo segue. 

37050 - Viene scelto, fra lo svantag¬ 
gio della vettura che precede l’i- 
esimo equipaggio ed il vantaggio 
sulla vettura che lo segue, il minore 
dei due in valore assoluto. 

37060 - In base al valore DD così 
ottenuto viene stabilito il ritmo di 
gara per la prova speciale successiva 
deH’i-esimo concorrente. In questo 
modo il suo ritmo di gara sarà tanto 
più alto quanto più strettamente a 
contatto si troverà a lottare per 
mantenere e migliorare il suo piaz¬ 
zamento. 

38000-38010 - Come sopra per 
quanto riguarda l’analisi della mag¬ 
giore o minore convenienza a far 
ricorso alla assistenza. In particola¬ 
re: 

38000 - si evita la routine nel caso in 
cui la j-esima vetture sia immune da 
danni. 


38003 - Si calcolano il ritardo presu¬ 
mibilmente accumulabile nelle pro¬ 
ve che restano da disputare ed il ri¬ 
tardo, sempre presumibile, che si 
pagherebbe al controllo orario; se 
quest’ultimo è maggiore di quello si 
interrompe l’analisi decidendo di ri¬ 
nunciare a far ricorso all’assistenza. 
38005 - Se, pur essendo minore del 
ritardo presumibilmente accumula¬ 
bile, il ritardo da pagare al controllo 
orario supera la mezz’ora, si decide 
di non far ricorso all’assistenza poi¬ 
ché ciò potrebbe comportare la 
squalifica per fuori tempo massimo 
(che, ad un singolo controllo orario, 
viene comminata, appunto, per ri¬ 
tardi superiori alla mezz’ora). 
38007 - Se il ritardo da pagare, pur 
essendo inferiore a quello accumu¬ 
labile ed alla mezz’ora di tempo, una 
volta sommato ai ritardi già pagati 
ad eventuali altri controlli orari, su¬ 
perasse l’ora, si decide di non far 
ricorso all’assistenza, poiché si ri¬ 
schierebbe di finire fuori tempo 
massimo per aver accumulato un ri¬ 
tardo complessivo, ai controlli orari 
fin qui attraversati, superiore all’o¬ 
ra. 

39000-39030 - È una subroutine di 
servizio che si occupa di cancellare 
la parte destra dello schermo per far 
posto ai tempi in prova speciale per i 
primi dieci equipaggi classificati. ■ 
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IN EDICOLA 



J. soli editrice via Rosellini, 12 20124 Milano 
tei. 02/6888228 683797 





Il gioco come metodo 
d'apprendimento del BASIC 
e dei microcomputer 
324 pag. L. 20.000 
Cod. 522A 

PROGRAMMI SCIENTIFICI 
IN PASCAL 

Per costruirsi una "libreria” 
di programmi in grado di 
risolvere i più frequenti 
problemi scientifici e 
ingegneristici 
384 pag. L. 25.000 
Cod. 554P 

DAL FORTRAN IV 
AL FORTRAN 77 

Per chi deve programmare 
a livello tecnico scientifico 
e per chi vuole 
approfondire le conoscenze 
del linguaggio 
266 pag. L. 18.000 
Cod. 517P 


Libri firmati JACKSON 


IL BASIC DEL PET 
E DELL'M20 

Un validissimo supporto e 
strumento di lavoro per 
chiunque voglia o debba 
imparare a programmare in 
BASIC con un Commodore 
o un Olivetti M20 
232 pag. L. 16.000 
Cod. 336D 

FORTH PER VIC 20 
E CBM 64 

Il libro spiega la 
programmazione in Forth: 
linguaggio che dopo 
essersi affermato in campo 
scientifico ed industriale, 
sta ora diffondendosi anche 
a livello di personal 
computer. 

156 pag. L. 11.000 
Cod. 527B 


La Biblioteca che fa testo 


IL BASIC PER TUTTI 

Per i neofiti una facile e 
immediata introduzione al 
linguaggio BASIC e al 
mondo dei calcolatori 
264 pag. L. 17.500 
Cod. 525A 

50 ESERCIZI IN BASIC 

Una raccolta completa e 
progressiva di esercizi 
matematici, gestionali, 
operativi, statistici, di svago 
208 pag. L. 13.000 
Cod. 521A 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 













Totale 



□ Pagherò contrassegno si postino U prozio indicato più L. 2000 par contributo Hi 
sposa di «pedlziona 

Condizioni di pagamento con ssonztono dot contributo sposa di spedizione: 
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ORUPPO 
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JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 
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Nome 


Cognome 
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Prov 
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chedina 13 per Sharp 
-MZ700- 


Un programma 
di pronostici automatici 


di Giuseppe Gatti 

Q uesto programma permet¬ 
te la compilazione di una 
schedina da sistema com¬ 
pleto introducendo i dati statistici 
che si possono trovare sui quotidia¬ 
ni del giovedì o del venerdì. 


I dati da immettere sono: 

1) nome squadra di casa (max. 10 
caratteri); 

2) nome squadra ospite (max. 10 ca¬ 
ratteri); 

3) punti classifica; 

4) partite giocate; 

5) partite vinte; 

6) partite pareggiate; 

7) partite perse; 

8) penalità input obbligatorio digi¬ 
tare: 

(0) se non si vuole assegnare penalità 
alla squadra indicata all’inizio della 
videata; 


(1) = piccolo handicap; 

(2) = media penalità; 

(3) = grossa penalità. 

Dopo una routine iniziale di input 
esce la maschera con visualizzate 
tutte le squadre del concorso e nella 
parte bassa dello schermo altre ri¬ 
chieste di input. 


Vantaggio squadra di casa 

Se si digita “S” il computer da un 
leggero vantaggio a tutte le squadre 
di casa. 


Listato 1. //programma BASIC. 


J[ H REM*********************************** 


20 REM**** **** 

30 REM**** SCHEDINO 13 **+* 

40 REM**** BV **** 

50 REM**** SOTTI GIUSEPPE **** 

60 REM**** **** 

70 REM**** RIUPHPZZPNO **** 

80 REM**** **** 


90 R E M ************* * * + + :+:*****+**+* * *+* * * * 

100 CLS:DIMP$<13,2) 

110 DI MB(13, 2, 5 > : DIMS 1 < 13> : DIMS2< 13) : DIMR1 $< 13> : DIMR2*< 13) : DIMR3$(13) 
120 CLS 

130 FQRI=1T013 
140 F0RL=1T02 

150 CONSOLE©,25,0,40:PRI NT"E" 

160 CURS0R5,1 

170 IFL=1THEHPRINTI ?" PORTITO SQUADRO DI CASO" 

180 IFL=2THENPRINTI?" PORTITO SQUADRO OSPITE" 

190 CURSGR21,3:PRINT"-" 

200 CURSORI0,3 
210 INPUT0$<I,L> 

220 IFLENCAf<I,L)>>10THENGOT0150 
230 CURSORI,5 

240 FRINT" PUNTI PARTITE MINTE PAREG. PERSE" 

250 C0NS0LE6,19,0,40 

260 CURS0R2,7 

270 INPUT"ESEESE";B<I,L,1) 

280 CURSOR12,7:1NPUTPORTI TE 
290 CURSQR21,7: INF'UTB< I, L, 2) 

30O CURS0R28,7:INPUTBCI, L,3) 

310 CURS0R34,7:1NPUTB<1,L,4 > 

320 IFPORTITE< >B<I,L,2> +B <I,L,3 >+B <I,L,4)THEN260 
330 IFB <1, L, 1 ■>< >< B <1, L, 2 >*2) +B CI, L, 3 >THEN260 
340 CURSORI4,10:PRINT"PENPLITP-" 

350 CURSOR16,12:1NPUTB<I,L,5) 
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Il mondo del software e dei servizi di informatica è difficile da fotogra¬ 
fare. Una domanda che varia di continuo, prodotti nuovi giornalmen¬ 
te immessi sul mercato. Non solo. Lq realtà italiana è ancor più 
complessa, per caratteristiche uniche di lingua, cultura, organizza¬ 
zione. 

Un mercato difficile, con infinite variabili. Noi della J. Soft abbiamo 
una risposta a tutte queste istanze: anzi, tutte le risposte. Perchè 
siamo un editore di software, di riviste e di libri su supporto magneti¬ 
co e su carta. 

In più, unici in Italia, distribuiamo su tutto il territorio nazionale, 
con una nostra rete di agenti, programmi nostri e della prima e più 
prestigiosa software-house indipendente del mondo: MICROSOFT. 

J. Soft con una struttura snella affronta con dinamicità tutti gli aspet¬ 
ti di questo nuovo mercato: dall’informazione alla formazione, dalla 
vendita all’assistenza post-vendita. 


abbonato. 

Sempre a sua disposizione, raggiungibili telefonicamente con un nu¬ 
mero diretto (02-6888228), per aiutarlo a risolvere un problema, a 
chiarire un dubbio, a far tesoro di tutti i suoi suggerimenti. 

J. Soft vuole distinguersi per una filosofia commerciale di una geo¬ 
metrica semplicità: offrire il meglio, nella forma più adatta, a un 
prezzo conveniente, con il miglior servizio. 




Il soft-publisher amico 

20124 Milano - Via Rosellini, 12 Tel. (02 ) 6888228-683797-6880841/2/3 







Schedina 13 
Sharp MZ700 


Seguito listato 1. 


360 NEXTLSHEXTI 
370 PRI NT"E" 

380 FORI«ITO13 

390 CURSOR0,I :PRINTO$(1,1) 

400 CURSOR12,I :PRINTft*<1,2) 

410 NEXTI 

420 CONSOLE 14,11,0,40 

430 PR I NT ! PR I NT s PR I NT " UPNTflGG 10 PER LO SQUADRO DI COSO CS/'ND" 
440 GETN$ 

450 IFN$=""THEN440 
46Ó IFN$="N"THEN510 
470 IFN$="S"THEN490 
480 GOTO440 

490 FORI=1TOl3: SI<I>=1:S2<I)=0:NEXTI 
500 GOT0520 

510 F0RI=1T013:SI<I)=0sS2<I>=0:NEXTI 
520 F'RINT"EBBEBSSE" 

530 PRINT"INSERISCI TUO PRONOSTICO CS/NI" 

540 GETS* 

550 IFS$=""THEN540 
560 IFS$="S"THEN590 
570 IFS$="H"THEN640 
580 GOTO540 

590 FORI = 1TO13:PRINT"ESSBE"? I ; " PARTITO PROHOSTICO" 

600 GETP$ 

610 IFP$=""THEN600 
620 Rl$<I)=P$ ' 

630 CURS0R23, I : PRINTR1* <I):NEXTI 
640 CLS 

650 F'RINT"EEEBBORO IL COMPÌUTER ELABORO" 

660 FOR1=1TOl3 

670 IFB<1,1,1)>B(1,2,1)THENS1<I)=S1(I>+l 
680 IFB(1,1,1)<B<1,2,1)THENS2<I)=S2<I> + l 
690 IFB(I,1,2)>B<I,2,2>THENS1<I)=S1<I>+l 
700 IFB<1,1,2)<B<I,2,2)THEHS2<I)=S2<I>+l 
710 IFB<1,1,3)>B(I,2,3)THENS1<I)=S1<I)+l 
720 IFB<1,1,3)<B<I,2,3)THEHS2<I)=S2<I)+l 
730 IFB<I,1,4)>B<I,2,4)THEHS2<I)=S2<I)+l 
740 IFB<I,1,4)<B<I,2,4)THENS1<I)=S1<I)+1 
750 S1<I)=S1<I)-B<I,1,5) 

760 S2<I)=S2<I)-B<1,2,5) 

770 NEXTI 
780 FORI=1TOl3 

790 IFS1<I)>S2<I)THENR2*<I)="1" 

800 IFS1<I)<S2<I)THENR2$<I>="2" 

810 IFS1<I)=S2<I)THEHR2#<I)=R1$<I) 

820 CURS0R25,I :PRINTR2*<I) 

330 NEXTI 

840 INPUT"EEEEEBBQUONTE DOPPIE UUOI ?"5DOPPIE 
850 PRINT"E" 

860 FORI=1TO13:R3$(I)="8":NEXTI 

870 FOR I=1TODOF'P IE 

880 D1 = I NT < 13+RND ( 1 ) ) +1 

890 IFR3f<D1)<>"0"THEN880 

90O X=INT<3+RHD<1))+1 

910 IFX=1THENR3T(D1)="1" 

920 I FX=2THENF'3t<D1 ) = "2 " 

930 IFX=3THENR3*(DI)="X" 

940 IFR3$<D1)=R2$<D1)THEN900 
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Schedina 13 
Sharp MZ700 


Seguito listato 1. 


950 IFR3*<D1>="2"THEH970 

960 GOTO980 

970 IFS2 ( DO-SI < D1 > < 2THEH900 

980 CURSORI'?, D1 : F'R INTR3* <D1 > 

990 NEXTI 



1000 F'R I NT" EEESSEBCnnCPOSSO STAMPARE 
1010 GETS4 

1020 IFS$=""THEH1010 

1030 IFS*="H"THEH1060 

1040 IFS$="S"THEH1100 

1050 GOTO1010 

CS^N3" 


1060 FORI=1TO13 : CURSQR23, I : F'R I NT " 

1070 CURSQR25, I : F'R I NT " " 

1080 NEXTI 

1090 GGTO370 

II 


1100 INPUT 111 GSSSSSESanSBBBQUONTE COPIE 
1110 F0RK=1T0C0PIE 

1120 FOR1=ITO13 

1130 PRINT/R 

"5 COPIE 


1140 F'RIHT/P"E";A$(Ij 1>; " 11 ; A*< 1,2) 

1150 NEXTI 

1160 F'R I NT/'P " Q " : NEXTK 

?" ";Rl$<l>;" 

";R2$<I>;" ";R3$<I> 


COMMENTO AL LISTATO 

Dalla riga 100 alla 360 routine di input dati statistici con controlli atti a 
evitare errori di battitura: 

1) se il nome della squadra è superiore ai IO caratteri vi riporta alla riga di 
input; 

2) se il numero delle partite giocate è diverso dalla somma di (vinte- 
pareggiate-perse) o se i punti in classifica sono diversi da (vinte x 2 - 
pareggiate x I) ritorna all’input iniziale. 

Dalla riga 370 alla 420 visualizza le partite su video con apertura di una 
finestra inferiore dove saranno visualizzate ulteriori richieste senza alte¬ 
rare il pre/scritto. 

Dalla riga 430 alla 510 routine per assegnare il vantaggio alla squadra di 
casa. 

Dalla riga 520 alla 630 routine per inserire i pronostici personali. 

Dalla riga 640 alla 830 routine di confronto dei dati, assegnazione 
pronostico e visualizzazione in corrispondenza della partita. 

Dalla riga 840 alla 990 richiesta del n. di doppie, creazione variabili e 
visualizzazione video. 

Dalla riga 1000 alla 1160 routine di stampa con possibilità di fare un 
numero determinato di copie. 


Inserisci il tuo pronostico 

Se si digita “S”, il programma vi 
permette di dare il vostro pronostico 
ad ogni partita che vi sarà richiesta a 
fondo pagina. 

Dopo tutti questi input, il computer 
elabora i dati confrontando quelli 
della squadra di casa con quelli della 
squadra ospite ed assegnando ad 
ogni squadra un valore positivo o 
negativo a seconda del caso. 

Finita l’elaborazione il computer 
stampa la sua colonna pronostico 
assegnando i valori appropriati ad 
ogni partita. 

Se il confronto dei dati fra la 
squadra di casa e quella ospite fosse 
in pareggio, il computer assegnerà 
all’incontro lo stesso pronostico di¬ 
gitato dall’utente nella prima colon¬ 
na. 

Terminata la stampa dei pronostici 
il calcolatore chiede quante doppie 
si vogliono giocare. 

Vengono richieste solo doppie per 
avere una schedina giocabile con co¬ 
sti contenuti ed accessibili a tutti. 
Digitato un numero che può andare 
da 1 a 13, avrete le variabili doppie 
con un metodo casuale sia per la 
I partita che per il segno (ovviamente 


diverso da quello presente nella co¬ 
lonna base). 

La variabile “2” viene messa solo se 
tra la squadra ospite e quella di casa 
vi è una differenza potenziale supe¬ 
riore a 2. 


Terminata la scrittura video il cal¬ 
colatore vi chiede se volete la stam¬ 
pa della schedina. 

Se siete provvisti di stampante avre¬ 
te esattamente riprodotta la pagina 
video. ■ 
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zx 

INTERFACE 1 


PRESENTA: 

GP 50 S STAMPANTE AD IMPATTO 

Piccola e compatta, realizzala con standard professionali, ottima per usi obbi- 
stici, la stampante GP 50 S è una stampante ad impatto con matrice di stampa 
5x8. 35 caratteri/secondo, 32 colonne, incorpora una interfaccia direna per 
Sinclair ZX8I c SPECTRUM, densità caratteri 12 CPI, grafica, alimentazione 
carta a frizione, completa di alimentatore esterno 
Stampa un originale ed una copia. 

Set di 96 caratteri ASCII 
Dimensioni: 250x85x215 mm. 


GP 50 S 
STAMPANTE 
AD IMPATTO 


ZX 

INTERFACE 2 


ZX MICRODRIVE 


SINCLAIR ZX SPECTRUM 


ZX SPECTRUM 


ZX MICRODRIVE PER SPECTRUM 

LoZX Microdrive amplia la possibilità dello ZX Speclrum in quei 
settori, come quello della didattica e delle piccole ap¬ 
plicazioni gestionali, dove è necessaria una veloce ri¬ 
cerca del le informazioni memorizzate su un 
supporto magnetico. 

Ogni cartuccia per Microdrive può contenere da un mi¬ 
nimo di 85k byte a lOOk byte. Il caricamento di un pro¬ 
gramma da 48k byte avviene in circa 5 secondi. 

Altre caratteristiche sono i comandi di "LOAD, SAVE e VERI- 
FY" per la memorizzazione, il caricamento, e la verifica dei pro¬ 
grammi. Il comando “FORMAT” per l'inizializzazione delle car¬ 
tucce. Il comando “CAT” per ottenre sul video la lista dei (ìles 
contenuti nella cartuccia, con l'indicazione dello spazio liberodi¬ 
sponibile. Comando di “AUTO-RUN’ per il caricamento. 


CARTUCCE M/D 

SINCLAIR 


MONITOR 
A COLORI 
10" REBIT 


N.B _ 

Per collcgare gli ZX Microdrivc allo ZX Speclrum è necessario 
utilizzare l'interfaccia I. 

L'interfacciapuógestirc contemporaneamente finoa8 ZX Micro¬ 
drive per un totale di 640 k byte. 

CARTUCCE M/D SUPPORTI MAGNETICI 
PER ZX MICRODRIVE 

Confezione da 2 e 4 pezzi. 


Lo ZX Speclrum, abbatte definitivamente la barriera fra home e per¬ 
sonal computer, e riunisce te due tipologie de! computer e del video¬ 
game. Infatti ad una memoria e ad un sistema operativo da Personal 
Computer affianca i colori, l’animazione, e il software ricreativo 
ed educativo tipico dei videogame e degli home computer più evoluti. 
Il tutto, naturalmente, ad un prezzo significativamente inferiore a 
quello di una semplice consolle per videogiochi. 




















ZX-INTERFACE I 


Indispensabile per il collegamento del ZX Microdrlve. 

Incorpora una interfaccia RS 232 e un sistema di collegamento in rete locale; si connette alla parte po¬ 
steriore dello ZX Spectrum permettendo comunque il collegamento di altre espansioni periferiche 
dello ZX Spectrum. La interfaccia seriale RS 232, standard industriale universalmente adottato, per¬ 
mette il collegamento fra lo ZX Spectrum e unaampiagamma di periferiche e di altri computer dotati 
della medesima interfaccia. Orarie alla RS 232 è anche possibile trasmettere dati sulla linea telefoni¬ 
ca utilizzando un modem. Tutte le immagini contenute in uno schermo video possono essere trasferi¬ 
te in circa 3 secondi e il protocollo di collegamento permette a ogni stazione della rete di specificare 
quali sono le stazioni trasmittenti e riceventi. É inoltre possibile diffondere un messaggio a ogni ZX 
Spectrum collegato alla rete realizzando un interessante sistema di broadcasting. Ogni Sinclair ZX 
Spectrum può agire come unità di servizio per altri ZX Spectrum della rete pilotando una stampante 
ZX o qualsiasi altra periferica collegala tramite la interfaccia RS 232. Ogni ZX Spectrum può inviare e 
ricevere fìles dagli altri computer della rete sfruttando al massimo le possibilità offerte dallo ZX'Mi- 
crodrive. La rete può essere costituita da 2 a 64 Spectrum. 




MONITOR A COLORI 10" 
“TUTTO ITALIANO” 

Un display ad alta risoluzione professionale dal de¬ 
sign molto curato nelle linee e finiture, particolar¬ 
mente indicato per l’utilizzo con gli home e personal 
computer per le sue dimensioni ed il prezzo conte¬ 
nuto. 

Questo monitor prevede un ingresso con segnale 
PAL composito più il segnale audio. 

Dimensioni; 270x285x370 mm. 


SINCLAIR ZX SPECTRUM 

• Grafica a 256x192 punti-schermo. 

• 24 linee di 32 caratteri. 

• 8 colori indipendenti per testo, sfondo, riquadro. 

• Comandi di suono modulabili in frequenza e durata. 

• Vera tastiera multifunzione con maiuscole e minuscole. 
Tutti i tasti con funzione di ripetizione. 

• Compatibile con leletext. 

• Alta velocità LOAD e SAVE: I6k byte/100 audi. 

• Funzioni VERIFY e MERGE per programmi e archivi. 

• BASIC Sinclair esteso con funzioni a 1 tasto; 
controllo di sintassi. 

• Ampio software su cassetta. 

• 16 k byte ROM 

Versione da 16 k RAM e da 48 k RAM. 


“ALLA SCOPERTA 
DELLO ZX SPECTRUM" 

Nato dalla traduzione dei manuali ingle¬ 
si è costituito da ben 35 capitoli; tratta a 
fondo tutti i problemi relativi al collega¬ 
mento ed all’utilizzo dello Spectrum 
spingendosi fino alla programmazione 
Basic. La massima chiarezza e la facile 
consultazione, con l'ausilio della casset¬ 
ta DEMO/DIDATTICA fanno di que¬ 
sto manuale un elemento indispensabile 
per il possessore dello ZX SPECTRUM. 


Il tuo Spectrum è preziosissimo, difendilo con la “SUPER 
GARANZIA"! Rebit Computer, distributore per l’Italia dei 
prodotti SINCLAIR, ha messo a punto la nuova SUPER 
GARANZIA. 

Acquista lo ZX SPECTRUM presso un Rivenditore Au¬ 
torizzato e richiedi la “SUPER GARANZIA”; oltre ad 
una perfetta assistenza ed alla certezza del valore 
del tuo autentico SPECTRUM, avrai dei vantaggi 
immediati. 

Per questo uno SPECTRUM senza la “SUPER 
GARANZIA” è solo un mezzo SPECTRUM! 


ZX-INTERFACE 2 

È l'ultima novità in casa Sinclair per lo ZX Spectrum. Permette di utilizzare le nuovissime ZX ROM 
cartucce software di nuova concezione e di minime dimensioni. È previsto il collegamento per due 
JOYSTICK di tipo standard “9 poli D" 

Con le nuove ZX ROM il programma è immediatamente caricato e pronto all'uso. 


GP 500 AS 
STAMPANTE 
AD IMPATTO 


JOYSTICK 

COMMAND 

“TRIGA" 


Il primo Joystick che ba il 
pulsante “FIRE" nel punto 
più naturale per l'uso, difatti 
il dito indice risponde più 
prontamente delle altre dita. 
Particolarmente adatto per I/F 
SINCLAIR 


GP 500 AS 

STAMPANTE AD IMPATTO 

Dal piacevole design e ad un prezzo incredi¬ 
bilmente contenuto, la GP 500 AS è una 
stampante ad impatto con matrice di stam¬ 
pa 5x7, 50 caratteri/secondo, 80 colonne, 
incorpora una interfaccia Seriale RS232C che 
consente il collegamento diretto alla ZX INTER¬ 
FACE I SINCLAIR dello SPECTRUM. 

Caratteri normali ed espansi, grafica, alimentazione 
della carta a trattori (moduli continui) larghezza 
9"3/6. Stampa un originale ed una copia. 

Set di 96 caratteri ASCII c 44 caratteri e simboli. 
Dimensioni: 315x114 x447 mm. 













copa a tre carte 

-Parte seconda- 


Un ottimo programma 
per PET/CBM 
e Commodore 64 


di Stefano Guarinelli 


I n questa seconda puntata 
vengono presentati il lista¬ 
to del programma e una 
dettagliata spiegazione del funzio¬ 
namento per blocchi di linee. 

Il programma, sviluppato su un cal¬ 
colatore CBM 4032, è perfettamente 
utilizzabile dai possessori di C 64, in 
quanto non sono state volutamente 
utilizzate istruzioni che facessero ri¬ 
ferimento a caratteristiche esclusive 
di una sola delle due macchine. 
Questa compatibilità significa an¬ 
che, ovviamente, che non sono state 
utilizzate alcune delle caratteristiche 
più scenografiche del C 64, quali la 
grafica a colori e il suono, in quanto 
non disponibili sul CBM. 

Comunque, sfruttando la detta¬ 
gliata descrizione del programma, 
non dovrebbe essere particolarmen¬ 
te difficile per i sessantaquattristi 
più esigenti riuscire ad inserire delle 
nuove routine sonore e grafiche. 


Commento alle istruzioni 
del listato BASIC 

2-9 - Presentazione del program¬ 
ma. L’istruzione 5, di dimensiona¬ 
mento array, è stata anticipata qui 
perchè il sottoprogramma 62500 
(d’ora in poi quando si farà riferi¬ 
mento ad un sottoprogramma lo si 
indicherà con il numero della prima 


istruzione dello stesso) la utilizza. Se 

la si posticipasse si avrebbe un erro¬ 
re del tipo “Redim’d array”. 

10-180 - Dimensionamento array: 

• MZ ed M1 rappresentano il maz¬ 
zo delle carte; 

• UC e UG rappresentano le carte 
uscite; 

• UB e U2 sono le carte che ha in 
mano il calcolatore; 

• GC e G2 sono le carte che ha in 
mano il giocatore; 

• PT e P2 rappresentano il piatto; 

• UP e UX sono le carte che ha 
preso il calcolatore; 

• GP e GX sono le carte che ha 
preso il giocatore; 

• P9 e PC è un vettore che, come si 
vedrà, verrà utilizzato per opera¬ 
zioni sul piatto e rappresenta il 
piatto stesso, ma reso “compat¬ 
to” e cioè senza zeri (è il packed- 
array di PT); 

• VF viene posto a 0 all’inizio del 
programma. Durante la prepara¬ 


zione del mazzo evita la ripetizio¬ 
ne delle carte; 

• MP è il vettore che contiene tutte 
le mosse possibili con le relative 
convenienze; 

• FM precisa per ogni mossa se si 
tratta di presa o scarto; 

• PS viene utilizzato per operazioni 
sul piatto, nel caso di verifica di 
scopa; 

• PE viene anch’esso utilizzato per 
verifiche sul piatto; 

• YU viene utilizzato per impedire 
che una carta che ha la possibilità 
di prendere venga scartata con 
altri scopi (scarto o presa futura). 

200-240 - Inizializzazione di alcune 

variabili: 

• US rappresenta il numero delle 
carte uscite; 

• UH quello delle carte prese dal 
calcolatore; 

• GH quello delle carte prese dal 
giocatore; 

• MA è il numero della mano cor- 
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rente; 

• YS e ZS sono il numero delle sco¬ 
pe realizzate rispettivamente dal 

calcolatore e dal giocatore. 
500-510 - Viene richiesto il nome del 
giocatore, che comparirà sul tavolo, 
di fianco alle rispettive carte, e sulla 
tabella del risultato finale. 

540-580 - Inizia la preparazione del 
mazzo. Come si vede, alcune varia¬ 
bili sono inizializzate a 0, cosa peral¬ 
tro inutile. In realtà il programma 
era nato per giocare più partite con 
un punteggio finale globale. Poi si è 
ritenuto più opportuno far giocare 
partite singole, anche per non grava¬ 
re sulla memoria con istruzioni di 
“pulizia” degli array e inizializza- 
zione delle variabili. Tuttavia alcune 
inizializzazioni a 0 sono state lascia¬ 
te per chiarezza del listato. 

La variabile FI conta le carte pre¬ 
senti nel mazzo in preparazione. Il 
test delTistruzione 5040 fa disegnare 
una carta rovesciata (vedi 24000) ed 
è fatto solo sulle carte pari e dopo la 
ventesima carta, per rendere un po’ 
più lento il passaggio delle carte di¬ 
segnate sul video e, d’altra parte, più 
veloce la preparazione del mazzo. 
All’istruzione 5100 viene verificato 
che la carta generata dalla Random 
(RA) non sia già presente nel mazzo. 
In questo caso, infatti, la corrispon¬ 
dente casella del vettore VF è stata 
posta a 1. 

6000-6140 - Viene creato il vettore 
M1 “gemello” di MZ, considerando 
solo la parte destra del numero di 
MZ. Ovviamente, ogni parte destra 
di MZ uguale a 0 varrà 10 su M1 e a 
ciò provvederà il test di linea 6040. 
6240-6300 - Viene richiesto all’uten¬ 
te chi deve essere di mazzo. La istru¬ 
zione 6260 ha scopi principalmente 
grafici (vedi 63700). La variabile 
MN cambia in continuazione du¬ 
rante il programma e stabilisce il 
turno di gioco (vale 0 se tocca al 
giocatore, 1 se tocca al calcolatore). 
La variabile IM, invece, resta co¬ 
stante per tutta la partita e precisa 
chi è “di mazzo” (1 se è di mazzo il 
giocatore, 0 se è di mazzo il calcola¬ 
tore). 


7000-8020 - Vengono disegnati il ta¬ 
volo da gioco, con le delimitazioni 
delle varie zone, e le lettere che ser¬ 
vono da indice per le carte che vi 
andranno deposte. 

8050-9150- Viene posizionato il cur¬ 
sore nel punto a partire dal quale 
dovranno essere collocate le quattro 
carte del piatto. Quindi il vettore PT 
viene riempito con le prime quattro 
carte del mazzo. Come si può vede¬ 
re, ad ogni operazione sui vettori- 
codice corrisponde un’operazione 
analoga sui vettori-valore. Questo 
set d’istruzioni è stato qui anticipato 
perchè valido solo per la prima ma¬ 
no. 

9160-9175 - Viene precisato il nume¬ 
ro della mano che, in lettere, compa¬ 
rirà nel riquadro-messaggi. 
9190-9660 - Vengono riempiti i vet¬ 
tori UB e GC. Questa operazione 
viene eseguita al termine di ogni ma¬ 
no e rappresenta la distribuzione 
delle carte. La variabile IN precisa, 
di volta in volta, da quale punto del 
mazzo bisogna partire per la distri¬ 
buzione. 


9670-9830 - Questo set di istruzioni 
ha già uno scopo strategico per il 
calcolatore. Lo scopo è il seguente: 
poiché per gli scarti per presa futura 
la priorità allo scarto viene data alla 
carta che compare per prima nel vet¬ 
tore UB, capita di frequente che il 
calcolatore rischi di perdere una car¬ 
ta di valore. Facciamo un esempio: 
supponiamo che il calcolatore abbia 
in mano un 5 d’ori e un 5 di fiori e 
che essi compaiano in questo stesso 
ordine nel vettore UB. La presa fu¬ 
tura, per come è strutturato l’algo¬ 
ritmo, farà scartare al calcolatore il 
primo dei due cinque mentre sareb¬ 
be più opportuno, in generale, scar¬ 
tare il secondo. 

Il set di istruzioni fa riordinare il 
vettore UB, “spingendo in fondo” 
gli ori (istruzione 9700), e solo gli ori 
(istruzione 9705), in modo che per le 
altre carte l’ordine resti casuale. Si 
tratta di un algoritmo di ordinamen¬ 
to per selezione, dove le variabili 
MT, ML, ZC, ZI e IZ sono variabili 
temporanee locali, che ron rallenta 
la distribuzione delle carte, essendo 


Figura 1. Quadro riassuntivo della sequenza e dei livelli di annidamenlo delle 
chiamate e sottoprogramma all'interno del blocco “Calcolatore". 


PRINCIPALE 

1 

2 

3 

16100 

47000 
(2 volte) 

55000 

53000 

30000 


58000 




21000 

33000 

47000 


60000 

23000 




23900 



24500 




25000 

27000 



42000 

24500 

60000 



62500 




28000 
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Scopa 
a Ire carte 


Listato 1. // programma Scopa. 


2 GOSUB 63080 

4 OET A* : RA*RND<33) : IF fi*OCHR*<13> THEN 4 

3 DIM PT<9> REM PT/P2 PIRTTO 

6 PRINT"T 

7 FOR T=1 TO 23 : PRINT" ■ " : NEXT 

8 PRINT" «0*1";: FOR Z-l TO 31 STEP 10 : GOSUB 60080 : NEXT 

9 FOR T=1 TO 2 •' GOSUB 62300 NEXT 

10 DIM MZ<41) : REM MAZZO 
20 DIM MI<41> 

30 DIM UCC41) : REM UCXUG CARTE USCITE 
40 DIM UO<41) 

50 DIM UB<4> REM UB/U2 CALCOLATORE 
60 DIM U2<4) 

70 DIM GC<4> -REM GC/G2 GIOCATORE 
80 DIM G2<4) 

100 DIM P2<9> 

110 DIM UP<41) : REM PRESE CALCOLATORE 
115 DIM UX<41> : REM t 
120 DIM GP<41) REM PRESE GIOCATORE 

123 DIM GX<41> REM T 

130 DIM P9<9> REM PIATTO EFFETTIVO 

135 DIM PC<9> REM t 

140 DIM VF(41) : REM VETT.BOOLEANO MZ COMPLETO 
150 DIM MP<200) : REM PRESE/PUNTEGGI 
155 DIM FM(50)REM PRESA 0 CALATA 
160 DIM PS<9> : REM PIATTO SCOPA 
170 DIM PE<9) : REM PRESA EVENTUALE 
180 DIM VU<4) REM BOOLEANO DI PRESA IN CALATA 
200 US*1 : UH*1 : GH=1 
220 MA=1 
240 VS=0ZS=0 

300 PRINT "IXIURL E' IL TUO NOME “J 
510 INPUT NO* 

540 PRINT "tMHnonNBM ORA DEVO MISCHIARE LE CARTE.” 

560 1=0 

600 FOR C«0 TO 40 
620 VF<C>=0 
640 NEXT 

4999 REM MISCHIA LE CARTE DEL MAZZO 

5000 FOR C=0 TO 10000 

5020 IF FI>=40 THEN PRINT''TODaDaDCCCO»M»»»PMCORfl UN ATTIMO. 

5040 IF I>20 AND INT<IX2)«IX2 THEN GOSUB24000 
5050 RA=INT<RND<33>441> 

5060 IF RA=0 THEN 3800 
3100 IF VF<RA>=1 THEN 3800 
5150 VF(RA>»1 
5170 1=1+1 

5180 IF 1=20 THEN PRINT".T 
5250 MZ<I)«RA 
5300 FI=FI+1 
5800 NEXT C 

6000 REM CONVERSIONE NUMERICA 
6020 FOR K=1 TO 40 

6030 MKK>-VAL<RIGHT*(STR*<MZ<K».1>> 

6040 IF MI<10=0 AND MZCIOO0 THEN MI <10=10 
6140 NEXT K 

6240 pr i nt M rnnnnniiRsiDiiwv'uoi essere tu di mazzo ? 

6260 GOSUB 63700 

6280 IF MN** n S" THEN NN=1 IM-1 REM OIOC 
6300 IF MN*="N" THEN MN=0- IM«0 : REM CALC 

7000 pr i nt n m**i****Li iiiimmiai . 

7010 PRINT”W»M*M»IB IIIIIIIIHIR1 
7020 PRINT"IMMMBBP ■■milllBirc 
7030 PRINT")WIMW*L ■■■■IIIIIIIDD 
7040 PRINT”»M»»MIID l■l■■lll■l■W 

7030 PRINT"»»M*B»IC 

7060 PRINT tMIMMMI l■llll*l■■IW 

7070 print” _mniaiiian . 

7080 PRiNT”waamca»»***ia t r; :prinT"»m***h u r; print ,, wmihs v r; 
7090 PRiNT"»w»»*ia w r; sprint”*"; 

7095 PRiNT”»*a*a*WM*a*»ia x r; PRiNT"»MM*ia v r; print" laaiaaia z r, 

--a c ■- 


8000 PRINT"* 


PREGO."GOTO 6000 



solo su tre elementi. 

9980-10200 - Vengono disegnate le 
carte del piatto sul tavolo. Il test di 
linea 9980 impedisce che le carte 
vengano disegnate in altre mani al di 
fuori della prima. 

10500-10700 - Vengono disegnate le 
carte del giocatore. La variabile Z, 
qui e in tutto il programma, fa da 
tramite fra la parte numerica e la 
parte grafica. Essa contiene il codice 
della carta che, per poter essere di¬ 
segnata, deve essere prima inviata al 
sottoprogramma di decodifica (vedi 
60000) e da qui al sottoprogramma 
della carta corrispondente (vedi 
23000-23900). 

11980-11990 - Inizia la partita vera e 
propria. La variabile CT precisa il 
numero delle coppie di carte giocate 
per ogni mano e quando supera il 
valore 3 fa cambiare la mano. La 
variabile booleana ER posta a 0 pre¬ 
cisa che la mossa (del giocatore) è 
corretta. 

11995-11998 - Viene inizialmente 
stampata una casella in “reverse", 
che conterrà l’indice della carta pre¬ 
scelta dal giocatore (ABC- 
TUVWXYZ), quindi la variabile 
MN farà giocare o l’utente o il calco¬ 
latore. Nel primo caso comparirà il 
messaggio dell’istruzione 11998. 
12000-12050 - Viene introdotto, at¬ 
traverso la GET, l’indice (ABC) di 
una delle carte del giocatore. La let¬ 
tera viene stampata nel riquadro cui 
si accennava prima. 

12100 - Il vettore EL$ è destinato a 
contenere gli indici della o delle car¬ 
te che si combineranno con quella 
scelta fra A, B o C. In questa istru¬ 
zione viene semplicemente “ripuli- 
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to” da eventuali indici residui delle 
mosse precedenti. RI ed RC conten¬ 
gono invece i codici e i valori delle 
carte aventi indice corrispondente in 
EL$. 

12110-12120- Inizializzazionedi va¬ 
riabili. La PR è booleana e quando 
vale 0 significa che la mossa è di 
scarto, mentre se vale 1 significa che 
la mossa è di presa. 

12150-12200 - Attraverso un’altra 
GET vengono introdotte le carte 
scelte per la presa. La variabile PR 
viene posta a 1 e si salta alla 12300. 
12210-12215 - Si è arrivati alla dira¬ 
mazione già citata in riferimento al 
blocco “Giocatore” nella prima 
parte dell’articolo. Se viene battuto 
il tasto RETURN, ma la variabile 
PR è a 0 significa che la mossa è uno 
scarto e pertanto viene attivato il 
sottoprogramma di verifica “presa 
eventuale” (vedi 47000) il quale, se 
dà esito negativo, porta al sottopro¬ 
gramma grafico di trasferimento 
della carta da quelle del giocatore al 
piatto (vedi 42000) c quindi alle ope¬ 
razioni accessorie (vedi 15000). 
12220-12250 - Il test sul RETURN 
viene ripetuto, in quanto il numero 
di carte memorizzate in EL$è inde¬ 
terminato. L’istruzione 12250 chiu¬ 
de la GET, impedendo che un carat¬ 
tere diverso da TUVWXYZ possa 
“passare”. 

Per le GET quella della protezio¬ 
ne da errori è una regola generale e 
verrà utilizzata senza ulteriori com¬ 
menti in tutto il programma. 
12300-12330 - Vengono trasferiti sui 
vettori di presa RI (valore) ed RC 
(codice) le carte del piatto di indice 
RI $. 

12350 - Viene stampato nel solito 
riquadro reverse l’indice della o del¬ 
le carte del piatto scelte. 
12360-12370 - Viene incrementato 
l’indice di RI. RC ed EL$ e si richie¬ 
de una nuova carta, finché non viene 
battuto RETURN (CHR$(13)). 
12400 - Inizia la verifica di presa 
corretta. 

12450-12550 - Come prima, anche 
qui, in base all’indice letterale, si de¬ 
sume il valore numerico della carta 


Seguito listato Scapa. 


8020 PRINTSPC<40-LEN<NO#>>NO*"*" 

8050 PRINT“r ' PR I NT "IMMMMIMI", 

9000 POR K-l T0 4 
9050 PTOO'MZOO : P2<K>=M1(K) 

9100 NEXT K 
9150 IN*K 

9160 IF MR>6 THEN 19000-REM 6 MANI 

9165 IF MA«1 THEN Mfl*="B PRIMA MANO " 

9166 IF MA=2 THEN MA*="KEC0NDA MANO" 

9167 IF MA-3 THEN MA*="B TERZA MANO " 

9168 IF MA=4 THEN MA*="B3UARTA MANO " 

9169 IF MA=5 THEN MA*="S1UINTA MANO * 

9170 IF MA*6 THEN MA$*"BULTIMA MANO “ 

9175 PRINT"* 

9190 L=1 

9200 F0R K=IN T0 IN+2 
9250 GC<L>=MZ(K> G2<L)=M1(K> 

9300 L-L+l 
9350 NEXT K 
9400 IN=K 
9450 J=1 

9500 FOR K=IN T0 IN+2 
9550 UBU)*MZ<K> U2<J)=M1(K) 

9600 J=J+1 
9650 NEXT K 
9660 IN=K 
9670 K=3 

9680 FOR C=1 T0 K 

9700 IF UB<C»MT AND MTC0 THEN 9720 
9705 IF UB<C»10 AND MTO0 THEN 9720 
9710 MT=UB<C> ML=U2<C)•IZ=C 
9720 NEXT C 

9740 ZC=UBOO-ZI=U2<IO 
9780 UBOO*HT U2<K)=ML 
9800 UB<IZ)»ZC U2(IZ)=ZI 
9820 K=K-1 MT=0 ML=0 
9830 IF K>0 THEN 9680 
9980 IF MA>1 THEN 10500 

10000 PRiNrwnaanna^ 

10050 FOR K=1 T0 4 
10060 IF K>4 THEN 10500 
10100 Z=PT(K> 

10150 C0SUB 60000 
10200 NEXT K 

10500 print "«aaroaaaai^^ - 

10550 FOR K=1 T0 3 
10560 IF 103 THEN 11990 
10600 Z=GC<K) 

10650 G0SUB 60000 
10700 NEXT K 
11980 CT»1 

11990 ER=0 : IF CT>3 AND IM=1 THEN 15100 ; REM - 
11995 PRINT* 


H"MAÌi 


3 CARTE DA GIOCARE 


11997 IF MN»1 THEN 16100 

11998 PRINT" 


»»M»»»B»»»»»»»M»»»»»»»BrrOCCA A TE" 


12000 GET Gi lF G*0"A" AND G*<>"B" AND G*0"C" THEN 12000 

12100 FOfM-1 T0 7 : ELICI : RI<I>=0 ; RC(I>=0 : NEXT I 
12110 I»1 
12120 PR=0 

12150 GET RI*IF RI*«"Z" OR RI*="V OR RI*=“X" THEN PR«100T0 12300 

12200 IF RI»*"W“ OR RI#="V" OR RI*«"U" OR RI*=“T" THEN PR=1G0T0 12300 

12210 IF RI*<>CHR*<13> OR PR=1 THEN GOTO 12220 

12214 G0SU8 47000 IF ER=1 THEN 11990 

12216 G0SUB 42000 GOTO 15000 

12220 IF RI*«CHR*<13> THEN 12400 

12250 GOTO 12150 

12300 IF RI*="T" THEN RI<I)=P2U> EL*<I)»"T" :RC<I)*PT<1) 

12305 IF RI««"U" THEN RI<I)*P2<2) : EL*(I>="U"-RC<I)=PT<2) 

12310 IF RI**"V" THEN RI<I)=P2<3) EL*(I)="V":RC<I)»PT(3) 

12315 IF RI**"W" THEN RI<D=P2<4> EL*<I>="W"-RC<I)=PT<4> 

12320 IF RI*«"X" THEN RI<I)'P2<5) EL*<I)»"X"-RC<I)-PT<5) 
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12325 

12330 

12350 

12360 

12370 

12400 

12450 

12500 

12550 

12570 

12580 

12600 

12650 

1270O 

12750 

12760 

12770 

12800 

12805 

12810 

12820 

12900 

12905 

12907 

12908 
12910 
12915 
12920 
12925 
12930 

12932 

12933 
12935 
12937 
12940 
12942 
12945 
12950 
15000 
15010 
15015 
15020 
15100 
16100 
16150 
16500 
16520 
16550 
16588 
16600 
16620 


IF RI$="Y" THEN RI(I>-P2<6> EL*(I)='’Y" :RC<I>=PT<6) 

IF RI*="Z” THEN RIU)«P2<?> EL*U)="Z" RC(I)=PT(7) 

PR1NT £CCCCCCGCE©EE)CliCtCCtCG>>MMMMMMOMMMMM>MMM>IS "RI*" 
1=1 + 1 

GOTO 12150 

REM VERIFICA PRESR CORRETTA 
IF G*="A” THEN CG=G2<1) CC=CC<1> 

IF G*=“B” THEN CG=G2<2> CC=GC(2> 

IF G*="C” THEN CG=G2(3)CC=GC<3> 

TP=0 

1 = 1-1 


r 


FOR V=1 TO I 
TP=TP+RI(V) 

NEXT V 

IF TPOCG OR TP=0 THEN 12800 
GOSUB 52000 IF ER=1 THEN 11990 
GOTO 12980 


ER=1 

GOTO 11990 
PRINT"* 

PRINT"» 

IF PR=1 THEN LM*=NO* LM=0 
IF CC=7 THEN E7=4 
UG<US)=CG UC(US)=CC 
GX(GH)=CG:GP<GH)=CC 
US=US+1 GH=GH+l 


EU(CG)=EU(CG)+1 
FOR T=1 TO V-l 
IF RI(T)=0 THEN 12945 
IF RC<T>=7 THEN E7=4 
UG<US>=RI<T> UC<US>=RC<T> 
GX(GH)=RI<T> : GP(GH)=RC<T> 
US=US+1 GH=GH+1 
ElKRI (T))=EU(RI<T))+1 
NEXT T 
GOSUB 42000 
GOSUB 62500 
IF ER=0 THEN CT=CT+1 


mn=i 

GOTO 11990 
MA*MA+l-GOTO 9160 
REM RISPOSTA CALCOLATORE 

PRINT gOMQ g OM DQO O iBB B BIiBeCIBCTMMBMMMBMMMMMBMMW 

VP=0:D=r 0=1 : UT=0:K1a >»0 : G*= *" EX*0 PR*1 HV=1 EC=0 : DD-0 
FOR 0P=1 TO 3'VU<OP)=0 NEXT OP 
FOR LU=1T0 3 

IF UB<LU)O0 THEN UT«UT+1 
NEXT LU 

IF UT-1 THEN EC=1 


16850 GOSUB 47000 

16900 D=D+1 : IF UB<D)O0 THEN 16850 

16920 D=D+1 : IF D<=3 THEN 16850 

16930 PR»0 

16980 D=1:EX=1^E=l 

17000 FOR LU*1 TO 3 

17005 IF UB<LU)=0 OR YU<LU>«1 THEN 17020 
17010 UN<E>»UB<LU> : U9(E>=U2(LU> 

17015 E=E+1 
17020 NEXT LU 
17030 PT(8)=0 P2<8)*0 
17040 IF D>3 THEN 17200 

17060 BS=UN(D) : BT=U9(D> : PT<8)=UN(D> P2<8)=U9<D> : UN<D)=0 U9<D>=0 
17100 E=1 

17120 IF E>3 THEN D-D+lE-t GOTO 17000 

17130 IF D=E THEN 17160 

17140 GOSUB 47080 

17160 E=E+1 GOTO 17120 

17200 GOSUB 58000 

18420 IF K1<1>=0 THEN 18430 

18422 FOR UT=1 TO 3 



coinvolta nella verifica (CG). 
12570-12700 - Viene calcolato il to¬ 
tale numerico delle carte contenute 
in RI, che, come si è visto, è stato 
riempito fino alla (I-l)-esima posi¬ 
zione. 

12750-12780- Viene effettuato il test 
fra carta giocata e carta presa. 

Se dà esito positivo, si passa alla 
verifica “presa minima” (vedi 
52000) e quindi alle parti accessorie, 
altrimenti viene stampato il messag¬ 
gio “Errore!” che riporta in 11990. 
12900-12905 - Vengono stampate 
due righe di spazi, che andranno a 
cancellare eventuali messaggi di er¬ 
rore relativi alla mossa impostata 
precedentemente. 

12907 - Questa istruzione viene uti¬ 
lizzata fin dalla prima mano, ma in 
realtà serve soprattutto verso la fine 
della partita per far ricordare chi, 
fra calcolatore e giocatore, ha preso 
per ultimo in quanto ad esso an¬ 
dranno le eventuali carte rimaste sul 
piatto in ultima mano. La variabile 
LM$ memorizza il nome del gioca¬ 
tore, mentre la variabile booleana 
LM vale 0, se le carte vanno al gioca¬ 
tore e 1, se vanno al calcolatore. 

12908 - Questa istruzione serve ai 
fini del già citato punteggio interno 
delle carte. Per il calcolatore ogni 7 
varrà molto di più, se il settebello è 
ancora in circolazione. Il valore E7 
(vedi 53750) verrà sottratto al pun¬ 
teggio interno dei 7 non appena il 
settebello viene preso da qualcuno 
(in questo caso dal giocatore) e per¬ 
ciò il test 12908 dà esito positivo. 
12910-12945- Vengono memorizza¬ 
te le carte prese nel vettore carte 
uscite (UG e UC) e in quello delle 
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Scopa 
a tre carte 

carte prese dal giocatore (GPe GX). 
Il test di linea 12933 è analogo a 
quello di linea 12908. Il vettore EU 
memorizza anch’esso le carte uscite, 
ma in modo diverso da UG e UC. 
EU è costituito da 10 caselle e fa 
riferimento solo al valore e non al 
codice delle carte. In ogni casella del 
vettore è precisato il numero delle 
volte che è uscita la carta avente 
valore pari all’indice della casella 
stessa. 

12950 - Le carte del piatto e quella 
scartata “spariscono” dallo scher¬ 
mo (vedi 42000). 

15000 - Viene richiamato il sotto¬ 
programma che verifica se c’è stata 
Scopa (vedi 62500). 

15010-15100 - Viene “ceduto il con¬ 
trollo” al calcolatore, ponendo a 1 
la già citata variabile MN (quando 
vale 0 gioca l’utente), si incrementa 
il numero delle carte giocate (CT), 
che quando supererà 3 farà cambia¬ 
re di mano e distribuire tre nuove 
carte al giocatore e al calcolatore. 
16100 - Inizia la fase di gioco del 
calcolatore. Per capire meglio la rea¬ 
lizzazione pratica di quello che, in 
astratto, era stato indicato come 
blocco “Calcolatore”, si faccia rife¬ 
rimento alla figura 1, che illustra 
schematicamente la successione e i 
livelli di annidamento dei sottopro¬ 
grammi utilizzati. 

16150 - Viene cancellato il messag¬ 
gio “Tocca a te”. 

16500-16520- Vengono inizializzate 
alcune variabili. Il significato di cia¬ 
scuna si vedrà al momento dell’uti- 
lizzo. 

16550-16620 - Questo ciclo va a ve¬ 
dere se il calcolatore ha una sola 
carta in mano, nel qual caso alcuni 
test di selezione che seguono non 
vengono utilizzati, in quanto non vi 
è possibile scelta. L’eventualità vie¬ 
ne segnalata ponendo a 1 la variabi¬ 
le booleana EC. 

16850-16920 - Per ciascuna carta del 
calcolatore vengono individuate e 
memorizzate (vedi 47000) tutte le 
possibili mosse. Il test di linea 16900 
è uno dei numerosissimi test, distri¬ 
buiti lungo tutto il programma, che 
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18423 IF VU<UT>=0 AND UB<UT><>0 THEN DD=1 

18425 NEXT UT 

18426 IF SMC-10 RND PR=0 AND DD=1 THEN 18430 
1842? IF SM>-20 OR DD=0 THEN 18450 

18430 G0SUB 21000 
18435 PR=0 
18450 Z=K1<1> 

18500 PRINT"»I";: GOSUB 60000 : GOSUB 62100 

18501 F0R UT=1 T0 3 

18502 IF UB<UT)=K1<1> RND PROl THEN 18507 

18503 IF UB(UT)OKl<n THEN 18508 

18505 EU<U2(UT))=EU(U2(UT)>+1 

18506 UP<UH)=UB<UT> : UX<UH>=U2<UT> :UH=UH+1 :UCCUS)=UB<UT> : UG(US)=U2(UT> : US=US+1 

18507 IF UB<UT>=K1<1> THEN UBCUT)=0-U2(UT)=0 

18508 NEXT UT 

18509 IF PROl THEN 18560 

18510 F0R UT=2 TO 5 
18512 F0R LU=1 T0 7 

18515 IF PT(LU)=0 OR K1<UT>=0 THEN 18550 
18520 IF PT<LU>OKl<UT> THEN 18550 
18525 UC<US)=PT<LU> : UG(US)=P2(LU):US=US+1 
13530 UP < UH)=PT < LU > : UX < UH)=P2 < LU) : UH=UH+1 
18535 EU<P2<LU)>=EU<P2<LU))+1 
18550 NEXT LU 
18555 NEXT UT 

18560 PRINT"»I", :Q0SUB 24500'G0SUB 25000 
18570 G0SUB 42000 

18575 GOSUB 62500 

18576 IF PR=1 THEN LM*="UBRLD0" : LN=1 
18580 FOR UT=1 T0 0 

18590 MP(UT)=0 
18595 NEXT UT 

18600 FOR UT=1 T0 3-VU<UT>=0:NEXT UT 

18610 FOR UT=1 T0 5:K1<UT)=0NEXT UT 

18620 FOR UT=1 T0 3 : UN<UT)=0 : U9<UT)=0-NEXT UT 

18900 MN=0 : FF=0•PT<8)=0 : P2<8>=0 : WW=0:Afl=0 

18905 FOR UT=1 T0 HV FM<UT)«0-NEXT UT 

18910 IF CT>3 RND IM=0 THEN 15100 

18920 GOTO11990 

19000 DZ=0 : IF LM=0 THEN 19100 

19010 FOR UT=1 T0 ? 

19020 IF PT<UT>=0 THEN 19040 

19030 DZ=1 : UP<UH)=PT(UT) : UX(UH)=P2<UT) 

19035 UH=UH+1 

19040 NEXT UT 

19050 GOTO 19145 

19100 FOR UT=1 T0 7 

19110 IF PT<UT)=0 THEN 19140 

19130 DZ-1 ; GPCGH>=PT<UT) : GX<GH)=P2<UT) 

19135 GH=GH+1 

19140 NEXT U T __ |JJ _ 

19146 PRINT "WCOCIIDIHDQIIOIHItfifflBICfiOIlDSOJMMMBOMMIiMIIMMBIMIB 

1914? IF DZ=0 THEN 19170 

19150 PRINT CARTE DEL PIRTTO VRNN0 fl "LM$ : GOSUB 62100 

19152 PRINT"H»»MOMMMI", 

19155 FOR UT=1 TO 3 : GOSUB 24500 : NEXT 
1915? PRiNrimBwnaanmi' 1 , 

19158 FOR UT=1 TO 4-GOSUB 24500 : NEXT 
19170 GOSUB 28000 

19180 PRINT : PRINT”VUOI GIOCARE RNCORfl ? "i 

19185 GOSUB 63780 

1918? IF MN$="S" THEN RUN 10 

19190 PRINT''nBIICKWII!ftHISI5I | !l | !HCIB0 "N0$", fl PRESTO !" 

19192 PRINT"XWKK«" 

19998 END 

21000 REM GITTATA SENZA PRESA PRESENTE 0 FUTURA 
21010 RH=0-EI=1^XS=0:FOR LU=1 T0 3-HR(LU)=0:NEXT 
21050 FOR LU=1 T0 3 
21060 TU=10 

21070 IF UB<LU>=0 THEN 21220 
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21075 IF VU<LU)=t THEN 21220 

21080 IF U2<LU>*7 AND EC*0 AND MA<5 THEN 21220 

21120 TU*TU+EU<U2<LU>> 

21150 FOR UT=1 TO 3 

21160 IF U2<LU>=U2<UT) THEN TU=TU+1 

21170 NEXT UT 

21180 FOR UT=l TO 7 XS=XS+P2<UT> ‘tEXT UT 
21185 IF U2<UU)=7 AND TU<13 THEN TU=TU-2 
21190 IF U2<LU)+XS>10 THEN TU=TU+1GOTO 21195 
21193 TU-TU+EUCU2<LU)+XS) 

21195 IF U8<LUX=10 THEN TU-TU-1 

21197 IF U2<LU>=0 THEN 21230 

21198 IF U2(LU»5 THEN TU=TU-0.5 
21200 GOSUB 33000 

21202 IF OB=l AND MA=5 THEN TU=TU-i 

21203 IF OB=l AND t1A=6 THEN TU=TU-3 
21205 RH=TU 

21210 HRIEI)=RH 
21220 EI“EI+1 
21230 NEXT LU 

21240 IF HR(1)>=HR(2) THEN 21300 

21260 IF HR(2)>=HR(3) THEN 21360 

21280 GOTO 21370 

21300 IF HR(1»=HR<3> THEN 21350 

21310 GOTO 21370 

21350 Ol=HR<1> 1 TL=1 : GOTO 21400 

21360 0L=HR(2) ; TL=2G0T0 21400 

21370 0L=HR<3> : TL=3 

21400 Kl<l>=UB<TL> 

21580 MN=1 
21600 RETURN 

23000 PRINT"S-limili': 

23010 PRINT"8 A A 1111111(11". 

23020 PRINT"9I limili': 

23030 PRINT" 8 "SI" IIIIIIIDil 

23040 PRINT"S llllllim. 

23050 PRINT"SI A A IIIIIII M - 

23060 print"* _riTTmir; 

23090 RETURN 

23100 PRINT" SI-umilili 

23110 PRiNm 2 2 lumini 

23120 PRINT"91 "S*" 111111111 

23130 PRINT" * IIIIIHKT . 

23140 PRINT" 9 ”S*" IIIIIIIK. 

23150 PRINT"a 2 2 HIIIIIOl 1 

23160 print "a _rrrrmir/ 

23190 RETURN 

23200 PRINT"a-Umiliti 

23210 PRINT" a 3 3 llllllltr, 

23220 PRINT" 8 "St" llllllltr, 

23230 PRINT" a "S*” miniti: 

23240 PRINT" a "S*" IIIIIIIDC , 

23250 PRINT" a 3 3 IIIIHI DC . 

23260 PRINT" a_mTTTMI"; 

23290 RETURN 

23300 PRINT "a-mr ine: 

23310 PRINT" a 4 4 limile: 

23320 PRINT "8 "S*“ PRINTSJ" IIIIIIIC 

23330 PRINT" a imill(£'. 

23340 PRINT"a "S*" PRINTS*" IIIIIIIC1 

23350 PRINT" a 4 4 IIIIIIIC 

23360 PRINT" a_mTTTMI". 

23390 RETURN 

23400 PRINT" 8 - HIIIIMl". 

23410 PRINT"3 5 5 IIIIIIIC: 

23420 PRINT"8 "S$" PRINTSf" lumie: 

23430 PRINT" a "S*" IIIIIIIC 

23440 PRINT" 8 "St" ", PRIN'S*" IIIIIIIC: 

23450 PRINT"a 5 5 ■■(■UIC 

23460 PRINT "a _rrTTTmr. 

23490 RETURN 

23500 print" a-mime: 



servono a prevenire da errori interni 
che si verificano quando entrano in 
gioco degli zeri non voluti. In questi 
casi il significato è semplice e cioè se 
il vettore UB non è pieno, non ha 
senso impostare la verifica là dove 
non c’è alcuna carta. In altri casi, 
invece, il significato può essere più 
oscuro, in quanto la presenza di zeri 
può dar luogo a malfunzionamenti 
indiretti e cioè a una catena di eventi 
che portano l’errore molto lontano, 
nel programma, dal punto che lo ha 
generato. In questi casi i test di pro¬ 
tezione sono stati realizzati spesso 
“a posteriori”, a volte dopo “dispe¬ 
rate” ricerche, c pertanto la loro giu¬ 
stificazione teorica implica da parte 
del lettore qualcosa in più di una 
buona conoscenza dei dettagli del 
programma, cosa peraltro irrealiz¬ 
zabile in poche righe di spiegazione 
e interessante, forse, solo per i più 
patiti di “debugging". Pertanto, so¬ 
lo di alcuni di questi test verrà data 
spiegazione. 

16930-16980 - Altre inizializzazioni. 
Notiamo la già citata variabile PR, 
che viene posta a 0 in quanto la fase 
di presa è terminata (alla linea 16500 
era stata inizializzata a 1 ), e la varia¬ 
bile EX, che vale 0 per la presa im¬ 
mediata (vedi 16500)e 1 per la presa 
futura, fase che appunto inizia qui. 
17000-17020 - Viene preparato un 
vettore fittizio di UB destinato a 
contenere le sole carte che possono 
essere scartate per la presa futura e 
cioè quelle che, immediatamente, 
non possono prendere. Quelle che 
possono prendere immediatamente 
hanno un 1 nella corrispondente ca¬ 
sella del vettore booleano YU (vedi 
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49000) e pertanto non possono esse¬ 
re utilizzate. Vengono così preparati 
il vettore-codice UN e il vettore- 
valore U9. 

17030 - Inizializzazione dell’ottava 
casella del piatto. La cosa può sem¬ 
brare assurda visto che il piatto, si 
era detto, ha solo sette posti. Si ve¬ 
drà ora l’utilizzo particolare di que¬ 
sta posizione. 

17040-17160 - Inizia la fase di presa 
futura vera e propria. Una variabile 
esterna D preleva una carta dal vet¬ 
tore UN e la deposita nella variabile 
temporanea BS e nell’ottava posi¬ 
zione del piatto, quindi la D-esima 
carta di UN si azzera. Una variabile 
interna E, a questo punto, ripete le 
stesse operazioni della presa imme¬ 
diata per tutte le carte di UN. Quan¬ 
do ha terminato il vettore UN viene 
ricostruito, dato che una carta su di 
esso era stata azzerata, la variabile 
D preleva una nuova carta e viene 
ripetuta l’operazione (vedi 47000). 
17200 - Viene richiamato il sotto¬ 
programma che di tutte le mosse 
possibili cerca la più conveniente 
(vedi 58000). 

18420 - Poiché la mossa più conve¬ 
niente viene depositata nel vettore 
K1 (vedi 58000), se quest’ultimo è 
vuoto (è sufficiente che sia vuota la 
prima casella), significa che non c’è 
possibilità di presa immediata né fu¬ 
tura. Si passa quindi alla 18430 dove 
viene selezionato, mediante oppor¬ 
tuna chiamata a sottoprogramma 
(vedi 21000), uno scarto convenien¬ 
te. 

18422-18430 - Come abbiamo visto 
nella puntata precedente, nella de¬ 
scrizione dei blocchi, esiste anche 
un’altra possibilità per la quale è 
richiesto l’uso di selezione di scarto 
e cioè quando, pur essendoci presa 
(immediata o futura), essa non è per 
nulla conveniente. 

Innanzitutto il test da 18422 a 
18425 va a verificare che almeno una 
delle carte di UB non sia coinvolta in 
presa, nel qual caso almeno una del¬ 
le caselle di YU contiene uno 0, sem¬ 
pre ovviamente che la corrisponden¬ 
te casella di UB non sia 0. La varia- 



Seguiio listalo Scopa. 


23510 PRINT"* 6 Climuar, 

23520 PRINT"* "SI" PRINTSI" limili-: 

23530 PRINT"* "SI" ", PRINTSI" limili-: 

23540 PRINT"* "SI" PRINTSI" llllllll- 

23550 PRINT"* 6 6 immiti 

23560 PRINT"3L___rtTTTT>»r. 

23590 RETURN 

23600 PRINT"* - 1111111» 

23610 PRIMI"* 7 7 immiti 

23620 PRINT"* "SI, BRINISI, PRINTSI" lumini". 

23630 PRINT"* "SI" ".PRINTSI” umiliti". 

23640 PRIMI"* "SI" ", PRINTSI" immiti , 

23550 PRINT"* 7 7 immiti 

23660 PRINT"* _ [TTTTTMr , 

23690 RETURN 

23700 PRINT"*-immiti 

23710 PRINT"* J “SI" J immiti 
23720 PRINT"* lllllll» , 

23730 PRINT"* SSSKZ immiti 
23740 PRINT"* 1111111» , 

23750 PRINT"* J "SI" J Umiliti , 

23750 PRINT"*_nTTTrWI", 

23790 RETURN 

23800 PRINT"* - immiti 

23810 PRINT"* Q "SI" Q 1111111»"; 

23820 PRINT"* -n-rrr 1111111»", 

23830 PRINT"* ***** 1111111»", 

23840 PRINT"* Umiliti 
23850 PRINT"* Q "SI" 0 llllllltti 

23860 PRINT"*_TTTTTTW, 

23890 RETURN 

23900 PRINT"*-immiti 

23910 PRINT"* K “SI" K lllllll» , 

23920 PRINT"* XOOCti IHIIIItC ; 


23930 

23940 

23950 

23960 

23990 

24000 

24010 

24020 

24030 

24040 

24050 

24060 

24090 

24500 

24510 

24520 

24530 

24540 

24550 

24560 

24590 

25000 

25010 

25020 

25040 

25060 

25080 

25085 

25090 

25100 

25120 

25200 

25300 

27000 

27020 

27040 

27060 

27080 


print"* >oocxx immiti 
print"* xxxxx imm»", 

PRINT"* K "SI" K imm»", 

PRINT"*_111117**1", 

RETURN 

PRINT" *-Umiliti , 

PRINT"* rrrrr IIIIIIIH", 

PRINT"* rrrrr imm»", 

PRINT"* rrrrr imm» 

PRINT"* rrrrr imillU", 

PRINT"* rrrrr imm»', 

print" *_ iimrm", 

RETURN 

PRINT"E umiliti 

PRINT" lllllll» , 

print" imm»'; 

PRINT" lumi»', 

print” imm»", 

PRINT" lllllll»', 

PRINT” TTTTTMI", 

RETURN 

REM CONVERSIONE INDICE-TRSTIERR 

IP PR=0 THEN RETURN 

FF=1 DP=1 

F0R DI=2 T0 5 

F0R DV*1 T0 7 

IF PT(DV)OKi<DI> THEN 25100 

IF PT<BV>=0 THEN 25100 

G0SUB 27000 PP=DP*1 

NEXT DV 

NEXT DI 

I=DP—1 

RETURN 

REM CONVERSIONE 

IF DV=1 THEN ELI<DP>="T" 

IF DV=2 THEN EL!<DP)="U" 

IF DV=3 THEN EL1<DP1="V" 

IF DV=4 THEN ELI<DP)="U” 
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27103 Ir DY=5 THEN EL*<DP>=''X" 

27120 IF DY=6 THEN ELf<DP)-"V" 

27140 IF DY=7 THEN EL#<DP)"’’Z" 

27500 RETURN 

28000 REM PUNTEGGIO PARTITA 
28010 GD=0 

28100 IF GH>UH THEN Q0*="S CPRTE ! ,'0*=" " Q8=l GOTO 28140 

28110 IF GH»UH THEN Q0*="CARTE PARI "'J0r=Q0* : GOTO 28140 
28120 00**" "J0$="S CARTE *" J0=1 

28140 FOR UT=1 TO UH 

28150 IF UP<UTX=10 AND UP<UT»0 THEN 0D=GD+1 
28160 NEXT UT 

28170 IF GD>5 THEN Ql*=" " J1J="S ORI r J1=1=G0T0 28200 

28180 IF GD=5 THEN Q!*=*ORI PARI" : J1*=Q1$'GOTO 28200 

28190 Qlt-"S ORI ■" Jl*«" "01=1 

28200 FOR UT-1 TO UH 

28210 IF UP<UT>=7 THEN 28250 

28220 NEXT UT 

28238 GOTO 28260 

28250 Q2*=” ":J2*="S SETTEBELLO ■" J2=l-GOT0 28300 

28260 Q2»="S SETTEBELLO J2*=" " 02=1 

28300 IF VS=0 THEN 28340 

28310 IF VS>1 THEN JS*="E" 

28320 IF YS=1 THEN JS*="A” 

28330 J4*=STR*<YS)+" SCOP"+JS*+" " 

28340 IF ZS=0 THEN 28400 

28350 IF ZS>1 THEN QSJ='E" 

28360 IF ZS=1 THEN QS*="A" 

28370 Q4*=STRt<ZS)+" SCOP"+OSt+" “ 

28400 FOR UT=1 TO UH 

28405 IF UP(UT)=0 THEN 28450 

28407 IF UXCUTX8 AND UXCUTX>0 THEN 28410 

28409 UP<UT)*0:UX<UT>=0 GOTO 28450 

28410 IF UX<UT»=6 THEN 28450 
28415 IF UX<UT>01 THEN 28430 

28420 UP(UT>=UP<UT)+4 : UX(UT>=UX(UT)+4 ; G0T0 28450 
28430 UP(UT)=UP<UT>-1 UX<UT)=UX(UT)-1 
28450 NEXT UT 

28452 PRINrT PRINT"ATTENDI UN ATTIMO PER FAVORE." 

28455 FOR UT=1 TO GH 

28460 IF GP<UT>=0 THEN 28500 

28465 IF GXCUTX8 AND GX<UT>O0 THEN 28470 

28469 GP<UT>=0 OX<UT>=0 GOTO 28300 

28470 IF GX(UT»=6 THEN 28500 
28475 IF GX<UTX>1 THEN 28490 

28480 GP(UT>=GP<UT>+4 GX(UT)=GX(UT)+4 : GOTO 28580 

28490 GP<UT>=GP(UT)-1 GX<UT>=GX<UT)-1 

28500 NEXT UT 

28510 AC=0 BC=7 KA=MU=0 

28512 IF KA>4 THEN 28540 

28513 UT=1 TT=0 

28515 IF UP<UTX=BC AND UP<UT)>AC THEN MX=UX<UT> •' TT= t : GOTO 28520 

28516 UT=UT+1 

28517 IF UT>40 AND TT=0 THEN MX=0 : GOTO 28535 

28518 IF UT>40 THEN 28520 

28519 GOTO 28515 

28520 FOR UT=1 TO UH 

28525 IF UP(UT+1X=BC AND UP(UT+1»=AC AND UX<UT+1»MX THEN MX=UX(UT+l) 
28530 NEXT UT 

28535 BQ<KA>=MX : KA=KA*1 : AC*AC*13 : BC=BC+10 : GOTO 28512 

28543 FOR UT=1 TO 4 IU*IU+8CKUT> NEXT 

28545 AC=0 : BC=7 : KA=i : IG=0 

28530 IF KA>4 THEN 28590 

28552 UT=1 TT=0 

28555 IF GP<UTX=BC AND GP(UT)>AC THEN MX=GX<UT) : TT=1 GOTO 28560 

28556 UT=UT+1 

28557 IF UTJ40 AND TT=0 THEN KX=0 GOTO 28575 

28558 IF UT>40 THEN 28560 

28559 GOTO 28555 

28560 FOR UT=1 TO GH 

28565 IF GP<UT+1X=BC AND GP<UT+1»AC AND GX<UT+1)>MX THEN MX=GX(UT+1) 
28570 NEXT UT 



bile booleana DD viene quindi po¬ 
sta a 1. Il valore sotto il quale la 
convenienza non è opportuna è -20 
per la presa immediata e —10 per la 
presa futura (più avanti vedremo 
con quali criteri viene calcolata la 
convenienza). 

18435-18450 - Viene richiamata la 
selezione dello scarto che, per uni¬ 
formità di scrittura, trasferirà la car¬ 
ta prescelta nella prima posizione 
del vettore Kl. Alla 18450 pertanto 
“saltano” tutte e tre le possibilità 
(presa immediata, futura, scarto). 
Come al solito, la variabile Z viene 
ad assumere il valore di Kl (1) per 
trasferire il controllo alla parte gra¬ 
fica. 

18500 - Viene posizionato il cursore 
in modo che la carta prescelta com¬ 
paia nel riquadro riservato al calco¬ 
latore, quindi viene chiamato il sot¬ 
toprogramma di decodifica (vedi 
60000), che provvederà a far dis¬ 
egnare la carta, e il sottoprogramma 
di pausa (vedi 61100), che farà resta¬ 
re per alcuni secondi la carta nel 
riquadro. In realtà non sarà solo 
questo sottoprogramma a tenere la 
carta nel riquadro prima che questa 
venga calata, ma anche tutte le ope¬ 
razioni accessorie che sono state in¬ 
serite dalla 18502 alla 18555 e che 
sono state qui collocate proprio per 
approfittare di un tempo morto. 
18502-18508 - La carta scartata dal 
calcolatore viene azzerata da UB. Se 
c’è stata presa, allora viene memo¬ 
rizzata nel vettore carte uscite UC e 
in quello delle carte prese dal calco¬ 
latore UP, nonché nel già visto vet¬ 
tore EU. 

18509 - Se l’operazione era di scarto 
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(PR=0), allora le operazioni acces¬ 
sorie sono terminate (scarto o presa 
futura). 

1851(M8555 - Se l’operazione era di 
presa (immediata), allora nei vettori 
delle carte uscite (UG, UC, UP, UX, 
EU) vengono memorizzate anche le 
carte del piatto coinvolte nella pre¬ 
sa. 

18560-18575 - Viene disegnata una 
carta di spazi bianchi nel riquadro 
riservato al calcolatore (vedi 24500), 
in modo che la carta giocata “scom¬ 
paia”. Quindi viene chiamato un 
sottoprogramma, che permette al 
calcolatore (vedi 25000) di usare lo 
stesso sottoprogramma che usa il 
blocco “Giocatore” per cancellare 
le carte del piatto dallo schermo e 
azzerarle nei rispettivi array o per 
aggiungerne una nuova sia sullo 
schermo sia negli array (vedi 42000). 
Quindi viene fatta, anche in questo 
caso, la verifica per vedere se c’è 
stata Scopa (vedi 62500). 

18576 - Come per il blocco “Gioca¬ 
tore" anche qui la variabile LM po¬ 
sta a 1 precisa che l’ultimo a prende¬ 
re è stato il calcolatore, chiamato, 
qui e in tutto il programma, con il 
nome di Ubaldo (i più seri mi perdo¬ 
neranno!). 

18580-18905 - Inizializzazione di 
vettori e variabili su cui non ritengo 
opportuno scendere in particolari. 
18910-18920 - Viene ceduto nuova¬ 
mente il controllo al blocco “Gioca¬ 
tore” che, fra l’altro, è quello che 
provvede ad incrementare sia la va¬ 
riabile CT sia la variabile MA, indi¬ 
pendentemente dal fatto che giochi 
di mazzo o meno. 

19000-19146 - Si salta a questa istru¬ 
zione quando dà esito positivo il test 
di linea 9160 e cioè quando è finita la 
partita. Si va innanzitutto a verifica¬ 
re che siano rimaste carte sul piatto, 
nel qual caso la variabile booleana 
DZ va a 1. Successivamente, in base 
al valore della variabile booleana 
LM (già vista), le carte rimaste sul 
piatto vanno all’ultimo che ha preso 
e quindi memorizzate nei rispettivi 
vettori. 

19147-19158 - Se perciò erano rima- 
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28375 

28390 

28393 

28595 

28397 

28600 

28602 

28603 

28605 

28607 

28608 
28610 
28611 
28613 
28615 
28640 
28642 
28644 

28647 

28648 
28650 
28660 
28670 
28680 
28690 
28692 
28695 

28697 

28698 
28700 
28720 
28740 
28760 
29000 
30000 
30030 
30050 
30100 
30120 
30130 
30140 
30150 
38200 
30220 
30240 
30250 
30260 
30270 
30280 
30282 

30284 

30285 
30287 

30289 

30290 
30300 
30310 
30320 
30360 
30400 
30420 
30440 
30445 
30430 
30455 
30460 
30480 
30500 
30520 
30540 
30560 
30570 


RGKKA>=MXKA*KA*1 flC'flC+10 BC=BC+10 GOTO 28330 

FOR U>1 T0 4 IG a IG+RQ(UT> NEX7 

IF IG>IU THEN Q3»="S PRIMIERA J3$=" “ Q3»l 

IF IG=IU THEN Q3*="PRIM.PARI" J3*=Q3I 

IF IG<IU THEN Q3#=" "■J3*=’ , S PRIMIERA i” : J3»l 

FOR UT=1 T0 4 

IF AQ<UT>*0 THEN 28607 

IF AQ<UT>-3 THEN AQ(UT)=1 GOTO 28607 

IF ACKUTX5 THEN AQ<UT>=A(XUT>+1 

NEXT UT 

FOR UT-1 T0 4 

IF BQ<UT>-0 THEN 28613 

IF BQ<UT>»5 THEN BQ<UT>=i GOTO 28615 

IF BGtUTXS THEN BQ<UT>=BG<UT>+1 

NEXT UT 

PRINT'TM ’i 

PRINT" S RISULTATO DELLA PARTITA "i 

PRINT"! ’i 

PRINT 

PRINTN0*, : PRINTTAB < 20 > ”UBALDO" 

PRINT"-" 

PRINTQ0*,PRINT"<"GH-1">";PRINTTAB<20>J0*< PRINT"<"UH-1")"-PRINT 
PRINTQ1»; -PRINT"ri0-GD"V’; :PRINTTRB<20)J1*; : PRINT" < "OD")" : PRINT 
PRINTQ2*. PRINTTAB<20)J2* PRINT 

PRINTQ3*; : PRINT"FOR T=1 T0 4:PRINTSTR»<AQ<T>>;:NEXTSPRINT")"; 

PRINT"mulini* * * *TT 

PRINTTRB<20)J3*> PRINT"("; : F0R T=1 T0 4 : PRINTSTRt<BQ<T)); NEXTPRINT")", 
PRINT"umilili* f ♦ ITT' 

PRINT PRINTSPRINT 

PRINT"!"34*"B"i PRINTTRB < 20)" !" J4J" B" 

PRINT"_—-" 

PRINTTABC5>Q0+Q1+Q2+Q3+ZS> PRINTTAB<23)J0+J1+J2+J3+YS 

PRINT"----” - 

RETURN 

REM VERIFICA SCOPA 

FOR A=1 T0 7 : PS(A)=0 : PE(A>=8 : NEXT 

IF EX=1 THEN 30280 

FOR A=1 T0 7 

IF PT(A)=SK OR PT<A)=SV OR PT(A)=SX OR PTCAXSW THEN PS<R>=0 : GOTO 30200 

IF PT<A>=SH THEN PS(A)=0GOTO 30200 

PS<A)=P2<A) 

GOTO 30220 
PE(A)=P2<A> 

NEXT A 


SS*0 CM=0 
FOR A=1 T0 7 
SS=SS+PS<A> 

NEXT A 

IF EXOl THEN 30290 
SS=8 : CM=8 
FOR A=1 T0 7 
SS=SS+P2<A) 

NEXT A 
SS s SS+BT 

IF SS=0 THEN CM=1 GOTO 31000 

IF SS} 10 THEN 31000 

TU=0 

TU=EU<SS) 

IF TU=4 THEN 30460 
FOR A»1 T0 3 
IF U2CAXSS THEN TU-TU+! 

NEXT A 

FOR A=1 T0 7 
IF P2<A)=SS THEN TU=TU+1 
NEXT A 

IF TU=4 THEN 31000 
IF TU=3 THEN RH*4 
IF TU“2 THEN RH«8 
IF TU=1 OR TU=0 THEN RH=12 
IF MA=1 OR MA»2 THEN 30620 
IF MA=3 THEN RH*RH+3 
IF MA=4 THEN RH’RH+13 
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30580 IF MA=5 THEN RH=RH+30 
30600 IF MA*6 THEN RH=RH+100 
38620 GOTO 31020 
31000 RH=0 
31020 RETURN 

33000 REM SUBR. 546 MANO 

33020 IF MA<5 THEN RETURN 

33030 IF CT=3 AND IM=1 THEN RETURN 

33040 IF CT=4 AND IM=0 THEN RETURN 

33060 FOR DA=1 TO 6 ; HG(DA)=0 : GU<DA)*0 OW<DA)'0■NEXT DA 

33100 UU»1 

33120 FOR DA=l TO 40VF<DA)=0NEXT DA 

33150 FOR DA=1 TO US 

33200 VF(UC<DA)>*t 

33250 NEXT DA 

33300 FOR DA-1 TO 3 

33320 VF(UB<DR)>=1 

33340 NEXT DA 

33370 FOR DA=1 TO 7 

33390 VF<PT<DR>>=1 

33400 NEXT DA 

33420 DB=t 

33500 FOR DA=1 TO 40 

33520 IF VF<DA>=1 THEN 33600 

33540 GU(DB)=DA GH (DB >=VAL <RIGHTT<STR4< DA), 1>> 

33560 DB=DE*1 

33600 NEXT DA 

33780 KU=0-LQ=1 

33785 IF MA=5 THEN 0V=9 

33737 IF MA=6 THEN 0V«3 

33790 FOR DR=1 TO OV HG<DA)=GWCDA) : NEXT DA 

34060 AA=1 MN=0 ; OB-0 

34070 ?T<8)=UB(LU> P2<8)=U2(LU) 

34075 DA=1 

34080 IF DA>OV THEN 35000 
34090 IF HGCDR1-0 THEN 34128 
34100 GQSUB 47000 
34110 IF 03=1 THEN 35000 
34120 DA=DA+1 : GOTO 34080 
35000 RETURN 

42000 REM SUBR. CRNCELUA-CARTE 

42050 IF G*= "A" THEN PP:HT''^3O30WW^XTOSOiXl»»^ , , 

42100 IF Gi="B” THEN PRINrWSSMmt^^ •• 

42150 IF G*=”C” THEN PRINT '«O«!a3^PtaaXe!0a»»*»M»**»»»»*rP»»»*l ' - 

42170 IF FF=0 AND MN=0 THEN GOSUB 24500 

42200 FOR SC=1 TO I 

42250 IF £Li<SC)0"T" THEN GOTO 42300 

42260 PRINT"«tCO7.;i0(DC!»HI". 

42270 PT<1 >=0 : P2< 1>=0 

42300 IF EL*<SOO "U" THEN GOTO 42350 

42310 PRINT'HKIIWWWWO*»»*»»»**»!'’. 

42320 PT<2)=0 P2(2)=0 

42350 IF EU<SOO“V" THEN GOTO 42400 

42360 PRINT 

42370 PT(3)'0 P2<3>*0 

42400 IF EL*<SC>0''W' THEN GOTO 42458 

42410 PRINT"«7Xl!35H!Xi!l»9m>»»ì»*»»*»»»9»P»»»»B*»»l" 

42420 PT<4)«0:P2<4>>>0 

42450 IF ELI(SCX>"X" THEN GOTO 42500 

42460 PRINT"W*»MMWMMr; 

42470 PT<5>=0 P2<5>=0 

42500 IF EL*<SC>0"V" THEN GOTO 42550 

42510 PRINT ■ 

42520 PT<6)=0 P2(6)-8 

42550 IF EL$<SCX>"Z” THEN GOTO 42600 

42568 print , 

42570 PT<7>=0 P2<7>»0 

42600 IF PR=1 THEN GOSUB 24588 REM PR «VARIABILE BOOLEANA DI PRESA 

42620 IF PR=0 THEN 42700 

42650 NEXT SO 

42700 FOR SC=1 TO 7 

42720 ELJCSC)*"" 



ste carte sul piatto, compare il mes¬ 
saggio ‘le carte del piatto vanno 
a...” seguito dal nome del giocatore 
o del calcolatore. Quindi vengono 
disegnate sette carte bianche sullo 
schermo, in modo da cancellare tut¬ 
to il piatto. 

19170 - Viene chiamato il sottopro¬ 
gramma che calcola il risultato della 
partita (vedi 28000). 

19180-19998 - Viene chiesto all'u¬ 
tente se vuole giocare ancora: se la 
sua risposta è affermativa, un RUN 
interno provvede alla pulizia imme¬ 
diata e velocissima di tutti i vettori e 
di tutte le variabili (ovviamente, per 
questo motivo, il calcolatore perde 
l’informazione sul nome del gioca¬ 
tore, che pertanto viene richiesto 
nuovamente) dopo di che il pro¬ 
gramma, senza la presentazione ini¬ 
ziale, riparte. 

Se la risposta è negativa, dopo un 
messaggio di saluto, il programma 
termina. 

Alla 19998 termina il programma 
principale; le istruzioni che seguono 
sono perciò sottoprogrammi interni 
al principale (a diversi livelli di anni- 
damento). 

21000 - Sottoprogramma di selezio¬ 
ne di scarto. 

21010-21050 - Dopo le consuete ini- 
zializzazioni un ciclo esterno sele¬ 
ziona di volta in volta una delle carte 
di UB, la convenienza della quale 
sarà depositata nel vettore HR. 
21060 - La variabile locale TU è la 
convenienza che verrà depositata hi 
HR e viene inizializzata a 10 per 
impedire semplicemente che essa, 
nel caso di mosse con rischio alto, 
possa assumere valori negativi o 
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nulli, con conseguenze intuibili. 
21070-21080 - Dopo i consueti test 
di protezione l’istruzione di linea 
21080 fa eliminare tutti i 7 dalla ri¬ 
cerca, a meno che vi sia una sola 
carta in UB (EC=1) o ci si trovi in 
ultima o penultima mano. 

In questo modo i 7 vengono scar¬ 
tati “con più riguardo’’ nei confron¬ 
ti delle altre carte. 

21120-21140 - Inizia la verifica sulle 
carte uscite. La convenienza sarà 
proporzionale al numero delle volte 
che la carta è già uscita e quindi al 
valore corrispondente in EU. In 
questo modo si dà la priorità nello 
scarto alle carte già uscite parecchie 
volte, in modo da non facilitare la 
presa da parte del giocatore. 
21150-21170 - Questo ciclo serve in 
realtà a prevenire un errore, ma con¬ 
cettualmente è privo di scopo. 

21180 - Si sommano tutte le carte del 
piatto, che vengono concentrate in 
XS. 

21185 - Questo test viene utilizzato 
di fatto solo in quinta e sesta mano 
poiché nelle altre (come abbiamo vi¬ 
sto poco fa) i 7 non vengono consi¬ 
derati. In questi casi si va a vedere se 
la variabile TU è inferiore a 13, il che 
starebbe a significare che ci sono 
ancora dei 7 in circolazione. Se ciò 
avviene, la variabile TU viene decre- 
mentata di due unità. 

21190 - Se la carta scelta, sommata 
alle altre del piatto (XS), è inferiore 
a 10, ci può essere rischio di dare 
Scopa. 

21193 - La convenienza è più alta se 
la somma delle carte che potrebbe 
dar luogo a una Scopa è una carta 
già uscita parecchie volte. 

21195 - Se la carta scelta è un oro, è 
meglio trattarla con riguardo. 

21197 - Test per prevenire l’errore 
della carta vuota. 

21198 - Viene data, per lo scarto, 
una piccola priorità alle carte basse. 
21200-21203 - Questo sottopro¬ 
gramma (vedi 33000) viene utilizza¬ 
to in quinta e sesta mano. La varia¬ 
bile booleana OB posta a 1 segnala il 
rischio (nel caso della quinta mano) 
o la certezza (nel caso della sesta 
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42740 NEXT SC 

42800 IF 0*="A" THEN PV=GC<1> PW»G2<1>:GC<1>=0-G2<1>»0 
42830 IF G*«"B" THEN PV=GC<2> PW=G2<2> : GC(2)'=0 G2<2>»0 
42900 IF G*»”C" THEN PV=GC<3):PW=G2<3>:GC<3>=0:G2<3>*0 
42950 IF PR-1 THEN 44000 
42960 IF MNOl THEN 43000 
42970 PV*KK1> 

42980 PU=VAL<RIGHT*CSTR$<PV>-1>> 

42990 IF PW=0 AND PVO0 THEN PW=10 

43000 F0R C=1 T0 7 

43050 IF PT<C)O0 THEN GOTO 43100 

43060 PT<C) a PV P2<C>=PU 

43070 GOTO 43200 

43100 NEXT C 

43200 IF COI THEN 43300 

43250 PRINT ’fflfflGlieaa^ 

43300 IF C<>2 THEN 43400 

43350 PRIHT ,, H9t»I)lMni8r83fi»»*********»l'' - 

43400 IF C03 THEN 43500 

43450 PRINT ,, «OIO;®!JR«!>»»»»»*»*M»»»***»»»l"; 

43500 IF C04 THEN 43600 

43550 PRINT ■ 

43680 IF 005 THEN 43700 

43653 PRINT SOI»*»»»»»»! U 

43700 IF C<>6 THEN 43830 

43750 PRINT " W', 

43800 if c=7 then PRiNT”jam»m*mmm»m»*»»i>mw ; 
43930 Z=PV : G0SUB 60000 
44000 RETURN 

47000 REM VERIFICA PRESA 0 GITTATA 

47010 ZZ=0 UU=0 

47023 IF G*=''A" THEN CG=G2(1) 

47033 IF G*="B ’ THEN CG=G2(2> 

47040 IF G*="C" THEN CG=G2(3) 

47045 IF AA=1 THEN CG=H0<DR> 

47050 IF MN-1 AND EX=0 THEN CG='J2<D> 

47055 IF MN«1 AND EX=1 THEN CG=U9<E> 

47060 IF CG=0 AND MN=i THEN RET'JRN 
47070 IF CG=0 AND HN=0 THEN 12800 
47080 CK=1 
47090 M=1 

47130 IF P08 THEN 47205 

47150 IF CG=P2<Ky THEN TH=P2<M> SH“PT<M> ZZ=1 »1W=1 GOTO 43000 

47160 IF MNOl OS EXOi THEN 47280 

47165 FOR VE*1 T0 3 

47170 IF UN(E?*PT<VE> THEN RETURN 

47130 NEXT VE 

47208 M=M+1 GOTO 47100 

47205 TC=0 

47207 H=1 

47208 IF ZZ=1 THEN CK-5 GOTO 49000 

47209 CK*2 

47210 FOR M=1 TO 8 

47223 IF PZOO-O OR P2<M»CG THEN 47240 
47225 P9(H>=P2<M) PC<H)=PT<K) 

47230 TC=TC+1 
47235 H=H+1 
47240 NEXT M 

47245 IF TC<*1 THEN 48908 
47250 M=1 

47260 IF M>TC-1 THEN 47586 
47300 Sl=P9<M> : SK=PC<M> TK=Si EN=6 
47320 N=1 

47350 IF N>TC THEN 47500 
47360 IF N-M THEN 47450 
47400 IF Sl+P9(N)OCG THEN 47440 
47420 SV»PCCN)-TV=P9<N>:WW=1 
47425 IF N<TC THEN EN=1 
47430 GOTO 49-00 

47440 S1=P9<M) SK=PC<M) : TK=S1 : EN=0 
47450 N=N+1 00T0 47350 
47500 M=M+1 : GOTO 47260 
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47580 IF TC<C=2 THEN 48900 
47600 M=1 
47610 CK-3 

47620 IF MJTC-2 THEN 48180 
47630 N=1 

47650 S1=P9(M>•SK=PC<M>:TK=S1:EN=0 
47700 IF N>TC-1 THEN 48050 
47710 IF N=M THEN 48000 
47750 S2=S1+P9<N>•SV=PC(N):TV=P9<N> 

47770 B=1 

47800 IF BJTC THEN 48000 

47850 IF B=N OR B=M THEN 4795e 

47900 IF S2+P9<B>OCG THEN 47950 

47910 IF BCTC THEN EN=1 

47920 WW=1:SX=PC<B>'TX=P9<B> : GOTO49000 

47930 S1=P9<M) : SK=PC(M> : TK=S1:EN=0 

47940 S2=S1+P9(N) SV=PC<N) : TV=P9(N) 

47950 B=B+l-GOTO 47800 

48000 S1=P9(M) ; SK=PC<M) TK=S1 : EN=0 N=N+1 : G0TO 47700 

48050 M=M+1 GOTO 47620 

48180 IF TC<=3 THEN 48900 

48200 M=1 

48210 CK=4 

48220 IF M>TC-3 THEN 48900 
43250 S1=P9<M> SK=PC(M> TK=S1 
43300 FOR N=M+1 TO TC-2 
48358 S2=Sl+P9(N> SV=PC<H> TV=P9<N> 

48400 FOR B=N+: TO TC-1 

48450 S3=S2+P9(B> SX=PC<B>•TX=P9(B> 

48500 FOR V=1 TO TC 

48550 IF V=B OR V*N OR V«M THEN 48700 

48600 IF S3+P9(V)=CG THEN WU=1 SW=PC<V> TW=P9<V>■GOTO49000 

48708 NEXT V 

48750 NEXT B 

48800 NEXT N 

48850 M=M+1GOT0 48228 

48900 IF MN=1 THEN CK=5 

48905 FR;NT KCO;«*?^3l?XS>XC"X’;f>li?!!»»»**»>P»»ri»Srt»»»!»»»F5C s 

48950 RETURN 

49000 IF MN=1 AND MW=1 THEN VU<B)=1 

49001 IF EN=1 AND 1W=1 THEN COSUB 55000'ON CK GOTO 47200,47440,47930 

49002 IF MN=i THEN GOSUB 55000 : ON CK GOTO 47280,47500,48000,48220,48950 


49005 IF AA=1 THEN OB=l RETURN OBBLIGO ■ 

49010 PRiNT'fflro^aoraxioxswxikwfiff»»»»***»*?»*»»!^:'»»*»»»»»»® di presa ■ " 


49040 ER=1 
49058 RETURN 

52000 RETI VERIFICA PRESA MINIMA IN PRE-SA CORRETTA 


52050 IF 1=1 THEN 52500 
52100 FCR V=1 TO 7 
52150 IF TP=P2(VJ THEN 52250 
52200 NEXT V 

52230 GOTO 52500 _ ^ 

5230O PRINT'HCXtìfi0IC!l«?!l5CKCE!3!W;5>MMM>F>MPI l MPMMI>F>B>>BB VALIDA ” 
52350 ER=1 
52360 RETURN 

52500 PRiNT «aicwcaxo£oia:oas3;i»r»»»»»r»i-»»*»»**»»»»**»*»»*»B 

52550 PRINT''gBI I BBBBCTBlligg»IiCTIKO!3!aa>>fM>>>MM>M>>Mt>>>>>>B>*E 


52600 RETURN 

53000 REM PUNTEGGIO INTERNO CARTE 

53050 IF KV=1 THEN XC=9 

53100 IF KV=2 THEN XC=5 

53150 IF KV=3 THEN XC=6 

53200 IF KV=4 THEN XC=7 

53250 IF KV=5 THEN XC=8 

53300 IF KV=6 THEN XC=10 

53350 IF KV=7 THEN XC=18 

53400 IF KV=8 OR KY=9 OR KV=10 THEN XC=4 

53450 IF KV=11 OR KV=21 OR KV=31 THEN XC=6 

53500 IF KV=12 OR KY=22 OR KV=32 THEN XC=2 





mano) che il giocatore possa pren¬ 
dere. Da qui il decremento di una o 
tre unità, rispettivamente, in TU. 
21205-21230 - Il valore di TU che 
risulta viene depositato nella EI- 
csima posizione di HR, quindi, do¬ 
po Tincremento di EI, il ciclo ester¬ 
no della variabile LU si chiude per 
passare al calcolo della convenienza 
di una nuova carta. 

21240-21600 - Al termine dell’esa- 
me, compiuto su tutte le carte di UB, 
viene eseguito il confronto per la 
ricerca della convenienza più alta. 
La TL-esima casella di HR, corri¬ 
spondente alla convenienza più alta, 
fornisce l’indice della corrisponden¬ 
te carta in UB, che viene trasferita, 
come si era visto per il programma 
principale, in K1 (1). 

23000-23990 - Sono i dieci sottopro¬ 
grammi grafici che disegnano le car¬ 
te. Il seme è dato dalla variabile S$e 
viene precisato dal sottoprogramma 
di decodifica (vedi 60000). 
24000-24090 - Si tratta di un sotto¬ 
programma grafico avente scopi pu¬ 
ramente estetici. Serve a disegnare 
una carta rovesciata e viene impie¬ 
gato durante la preparazione del 
mazzo per mostrare le carte che 
scorrono sullo schermo. 
24500-24590 - Questo sottopro¬ 
gramma fa sovrapporre a una carta 
una serie di spazi bianchi, dando 
l’impressione che la carta scompaia 
dallo schermo. 

25000 - Questo sottoprogramma 
consente al blocco “Calcolatore” di 
utilizzare lo stesso sottoprogramma 
di eliminazione dal video che utiliz¬ 
za il blocco “Giocatore” (vedi 
42000). Poiché quest’ultimo utilizza 
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gli indici letterali TUVWXYZ, que¬ 
sto sottoprogramma effettua sem¬ 
plicemente la conversione numero- 
lettera. 

25010-25300 - Un ciclo esterno (va¬ 
riabile DI) scandisce il vettore Kl, 
nel caso di presa (PR=1) a partire 
dalla seconda posizione, in quanto 
la Kl(l) contiene la carta di UB, e va 
a verificare a quale posizione nume¬ 
rica del piatto corrisponde la carta, 
trovata dal ciclo più interno (varia¬ 
bile DY). Quindi una chiamata a 
sottoprogramma realizza la conver¬ 
sione vera e propria (vedi 27000) e si 
passa a una nuova carta di Kl. 
27000-27500 - Questo sottopro¬ 
gramma, interno al 25000, esegue 
semplicemente il test numerico sul 
piatto, memorizzando, nel già visto 
vettore di eliminazione EL$, le lette¬ 
re corrispondenti. L’incremento 
dell’indice di EL$ (DP) viene effet¬ 
tuato dal sottoprogramma esterno 
25000 alla istruzione 25090. 

28000 - Questo sottoprogramma dà 
come uscita una tabella in cui com¬ 
pare il risultato della partita. 
28100-28120 - Si determina chi “ha 
fatto le carte”. L’operazione è molto 
semplice, in quanto già contenuta 
nelle variabili che scandiscono i due 
vettori di presa del calcolatore (UP) 
e del giocatore (GP), e cioè UH e 
GH rispettivamente. Sotto il nome 
di chi avrà ottenuto il maggior nu¬ 
mero comparirà la scritta “Carte”in 
reverse. 

28140-28190 - Vengono calcolati gli 
ori. Si ricercano nel vettore-codice 
delle carte prese dal calcolatore 
quelle minori o uguali a 10 (vedi: 
struttura e codifica dei dati). Ovvia¬ 
mente gli ori dell’avversario saran¬ 
no dati da 10 meno il totale di quelli 
del calcolatore (GD). 

28200-28260 - Si cerca chi ha preso il 
settebello. Anche in questo caso la 
ricerca è effettuata su uno dei due 
vettori, il vettore-codice UP. 
28300-28370 - Si cerca il numero del¬ 
le Scope realizzate dal calcolatore e 
dal giocatore. 1 test delle istruzioni 
28310, 28320, 28350, 28360 hanno il 
solo scopo grammaticale di dare la 
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53550 IF KY=13 OR KV=23 OR KY=33 
53600 IF KY=14 OR KY=24 OR KY=34 
53650 IF KV=15 OR KY=25 OR KV=35 
53700 IF KV=16 OR KV=26 OR KY=36 
53750 IF KV=17 OR KY=27 OR KY=37 
53800 IF KY=18 OR KY=19 OR KY=20 
53850 IF KY=38 OR KY=39 OR KY=4e 
53950 RETURN 

55000 REM VETTORE PUNTEGGIO 
55003 VP=0XC=0 : 2=0 
55005 IF EX=l THEN VP=-8 
55007 IF CK=5 THEN 56500 
55010 IF CKOl THEN 55600 
55020 IF UB<D>=0 THEN RETURN 
55030 SK=0 ; SY=0•SX=0 : SW=0 : SH=0 
55040 TK=0 ; TY=0 : TX=0 : TW=0 : TH=0 
55050 IF EX=0 THEN MP<0>=UB<D> 
55060 IF EX=1 THEN MP<0>=BS 
55100 0=0+1 

55150 MP(0)=PT<M>SH=PT(M> 

55200 0=0+1 
55250 MP(O)=0 
55300 0=0+1 
55350 
55400 
55410 
55420 
55430 
55450 
55550 
55600 
55610 
55650 
55700 
55750 
55800 
55840 
55850 
55855 
55860 
55865 
55870 
55880 
55835 
55887 
55390 
55900 
55950 
56000 
56005 
56010 
56015 
56020 
56030 
56040 
56042 

56044 

56045 
56050 
56070 
56100 
56105 
56110 
56115 
56120 
56130 
56140 
56150 
56155 
56157 
56160 
56500 
56520 


THEN XC=3 
THEN XC=4 
THEN XC=5 
THEN XC=7 
THEN XC=13-E7 

OR KY=28 OR KV=29 OR KV=30 THEN XC=1 
THEN XC=1 


KY=PT <M>:G0SUB 53000■VP-VP+XC 

IF EX=0 THEN KV=UB<D> : G0SUB 53000 : VP=VP+XC 

IF EX=i THEN KV=UN<Ej : G0SUB 53000 VP=VP+XC 

G0SUB 30000:VP=VP-RH 

IF CM=1 flNII EX=0 THEN VP=VP+15 

MP(0)=VP■0=0+1 :MP<O>=0 : 0=0+1 

GOTO 56500 

MP(0)=UB<D) 

IF EX=1 THEN MP<0)=BS 
0 = 0+1 
MP<0)=SK 
0 = 0+1 
MP(0)=SY 
0 = 0+1 

IF CK>=3 THEN 55900 
MP(O)=0 : 0=0+1 

IF EX=0 THEN KY=UB(D) : G0SUB 53000 : VP=VP+XC 

IF EX=1 THEN KY=UNCE> G0SUB 53000 :VP=VP+XC 

KY=SK : G0SUB 53000 ; VP=VP+XC 

KY=SY : G0SUB 53000 :VP*VP+XC 

G0SUB 30000 ; VP=VP-RH 

IF CM=1 AND EX=0 THEN VP=VP+15 

MP<0)=VP: 0=0+11MP<O>=0: 0=0+1 : GOTO 56500 

MP(0>=SX 

0 = 0+1 

IF CK>=4 THEN 56050 
MP<O>=0 : 0=0+1 

IF EX=0 THEN KY=U8<D> : G0SUB 53000■VP=VP+XC 
IF EX=1 THEN KY=UN<E> G0SUB 53000 : VP=VP+XC 
KV=SK : G0SUB 53000-VP=VP+XC 
KY=SY:G0SUB 53000 : VP=VP+XC 
KY=SX•G0SUB 53000 : VP=VP+XC 
G0SUB 30000 : VP=VP-RH 
IF CM=1 AND EX=0 THEN VP=VP+15 
MP < 0 ='VP - 0=0+1 : MP < 0 ) ■=0■ 0=0+1 : GOTO 56500 
IF CiO=5 THEN 56500 
MP<0)=SM 
0 = 0+1 

MP<O>=0 : 0=0+1 

IF EX=0 THEN KY=UB<B> : G0SUB 53000■VP=VP+XC 

IF EX=1 THEN KY=UN(E) : G0SUB 53000 : VP=VP+XC 

KY=SK G0SUB 53000 :VP=VP+XC 

KY=SY •' G0SUB 53000 : VP=VP+XC 

KY=SX ; G0SU3 53000 :VP=VP+XC 

KY=SH : G0SUB 53000 : VP=VP+XC 

G0SUB 38000-VP=VP-RH 

IF CM=1 AND EX=0 THEN VP=VP+15 

MP<0>=VP:0=0+1 MP(O)=0 : 0=0+1■M=M+1■GOTO 56500 

SK=0 : SY=0 : SX=0 ■ SiJ=0 ■ SH=0 

TK=0:TY=0:TX=0:TW=0 : TH=0 
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desinenza plurale alla parola Scopa, 
che comparirà sulla tabella, nel caso 
ve ne fosse più di una. Anche in 
questo caso, due sole variabli (J4$ e 
Q4$) memorizzeranno l’intero mes¬ 
saggio da collocare nella tabella fi¬ 
nale del risultato. 

28400-28450 - I vettori delle carte 
prese dal calcolatore (UPe UX) ven¬ 
gono “trasformati”: le figure vengo¬ 
no azzerate (28409), gli assi vengono 
portati a 5 (28420), le carte inferiori 
al 6 vengono decrementate di 1 
(28430). 

28455-28500 - I vettori delle carte 
prese dal giocatore (GP e GX) ven¬ 
gono “trasformati” nella stessa ma¬ 
niera in cui vengono trasformati UP 
e UX. 

28510- Inizia il calcolo della primie¬ 
ra per il vettore UP. La variabile AC 
(estremo inferiore) e la variabile BC 
(estremo superiore) fissano l’inter¬ 
vallo del codice delle carte, che an¬ 
drà esaminato su UP. La variabile 
KA scandisce il vettore primiera 
BQ. 

28512-28515 - Non appena si trova 
una carta che è contenuta nell’inter¬ 
vallo AC-BC la variabile booleana 
TT viene posta a 1 e si passa alla 
ricerca del massimo (vedi 28520). 
28516-28519 - Se la carta non corri¬ 
sponde all’intervallo, si passa alla 
successiva, fino a scandire tutte le 
possibili carte di UP. Se la carta non 
è stata trovata, si pone a 0 la variabi¬ 
le di confronto MX. 

28520-28530 - Si cerca, usando come 
termine di confronto la variabile 
MX (clic corrispondeva alla prima 
carta trovata appartenente all’inter¬ 
vallo AC-BC). il valore più alto 
(sempre interno ad AC-BC), che sa¬ 
rà trasferito ancora su MX e che 
verrà quindi depositato nell’array di 
primiera BQ. 

28535 - Viene incrementato l’indice 
KA di BQ e vengono fissati l’estre¬ 
mo inferiore e superiore del nuovo 
intervallo da considerare, aggiun¬ 
gendo 10 sia ad AC sia a BC. Quindi 
si ripete l’operazione di ricerca fino 
al completo riempimento di BQ. 
28540 - Viene calcolato il punteggio 


globale della primiera, che sarà con¬ 
tenuto nella variabile IU. 
28545-28590 - Viene determinata la 
primiera del giocatore con lo stesso 
procedimento visto per quella del 
calcolatore. La primiera verrà depo¬ 
sitata nel vettore AQ e il suo punteg¬ 
gio globle in IG. 

28593-28597 - Si esegue il consueto 
test per determinare chi ha “fatto la 
primiera”, con la relativa memoriz¬ 
zazione dei messaggi per la tabella 
finale. 

28600-28615 - Le due primiere AQ e 
BQ vengono “rifatte”. I 5 tornano 
ad essere assi, i 4 diventano 5 e così 
via. AQ e BQ verranno collocati nel¬ 
la tabella, in modo che l’utente pos¬ 
sa controllare il proprio gioco e 
quello dell’avversario. 

28640-29000 - Viene stampata la ta¬ 
bella finale con i messaggi in reverse 
affiancati dai relativi dati numerici. 
In basso compare il punteggio nu¬ 
merico totale. 

30000 - Inizia il sottoprogramma 
che determina il rischio a lasciare 
Scopa di una mossa. 

30030 - Inizializzazione dei due piat¬ 
ti su cui si opererà in seguito. 

30050 - Se la mossa è di presa futura 
(EX=1), si utilizzerà un procedi¬ 
mento leggermente diverso (vedi 
30280). 

30100-30220 - La carta del piatto 
che, se la mossa fosse realizzata, 
sparirebbe, e che quindi coincide 
con le variabili di trasferimento (ve¬ 
di 47000) SK, SY, ..., viene posta 
uguale a 0 nel piatto provvisorio fit¬ 
tizio PS; le altre, invece, vengono 
trasferite integralmente. Quelle az¬ 
zerate in PS vengono temporanea¬ 
mente memorizzate in un altro vet¬ 
tore PE. 

30240-30270 - Viene calcolata la 
somma totale delle carte che com¬ 
pongono il piatto fittizio (PS è del 
tipo vettore-valore). 

30280-30289 - Se la presa è futura, la 
somma viene calcolata sul piatto re¬ 
ale P2, in quanto, in questo caso, 
non essendoci presa immediata nes¬ 
suna carta del piatto si azzera. Inol¬ 
tre verrà aggiunta a questa somma 



la carta depositata sul piatto, conte¬ 
nuta in BT (vedi 17060). 
30290-30300 - Tutte le operazioni 
(presa immediata o futura) arrivano 
qui. Se la somma SS è 0 (caso possi¬ 
bile solo in presa immediata), signi¬ 
fica che non restano carte sul piatto 
dopo la presa, il che equivale a dire 
che il calcolatore fa Scopa. Ovvia¬ 
mente non solo non c’è rischio, ma 
addirittura la mossa è assai conve¬ 
niente e questo fatto viene segnalato 
al sottoprogramma chiamante (vedi 
55000) ponendo a 1 la variabile boo¬ 
leana CM. Se invece la somma SS è 
maggiore di 10, significa che non v’è 
alcun rischio di lasciare Scopa e 
quindi si esce dal sottoprogramma 
dopo aver passato al chiamante (ve¬ 
di 55000) un valore nullo per il ri¬ 
schio (RH). 

30310-30320 - Il rischio è tanto più 
alto quanto meno volte è già uscita 
la carta corrispondente alla somma 
SS, il cui numero di uscite (TU) è 
depositato nella SS-esima posizione 
del vettore EU, già esaminato. 
30360-30455 - Si va a vedere inoltre 
se la carta, nel piatto, o fra le stesse 
carte del calcolatore, incrementan¬ 
do, in caso positivo, il valore di TU. 
30460-31020 - In base al valore di 
TU viene fissato un primo valore al 
rischio RH. In un secondo tempo il 
rischio viene modificato a seconda 
del numero della mano corrente. 
33000 - Questo sottoprogramma dà 
la convenienza dello scarto in ma¬ 
niera più precisa per la quinta e la 
sesta mano. 

33020-33040 - Il sottoprogramma 
non viene utilizzato in tutte le mani 
inferiori alla quinta e se la carta di 
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UB è una sola. 

33060-33100 - Inizializzazione di va¬ 
riabili il cui significato sarà visto al 
momento deU’utilizzo. 

33120 - Viene inizializzato il vettore 
VF, già impiegato per la preparazio¬ 
ne del mazzo all’inizio del program¬ 
ma. In tutto il resto del programma 
resta inutilizzato e pertanto viene 
qui usato per precisare le carte usci¬ 
te. Si può osservare come a questo 
fine, e lo si vedrà meglio più avanti, 
si poteva impiegare il vettore EU. 
Però, poiché “storicamente” que¬ 
sto è stato introdotto in un se¬ 
condo tempo, non si è ritenuto op¬ 
portuno rifare l’intero sottopro¬ 
gramma 33000 con un guadagno in 
termini di efficienza solo di poco 
superiore. 

33150-33400 - Vengono poste a 1 
tutte le caselle di VF che corrispon¬ 
dono ai codici di carte contenute in 
UC e perciò già uscite, oppure in UB 
oppure nel piatto PT. 

33420-33600 - Vengono riempiti i 
due vettori “gemelli” GU e GWcon 
tutte le carte che non hanno un 1 in 
VF e che perciò non sono ancora 
uscite. 

33780-33790 - Le carte non ancora 
uscite (9 in quinta mano e 3 in sesta 
mano) vengono depositate nel vet¬ 
tore HG. 

34060 - Questa serie di inizializza- 
zioni contiene un’apparente stra¬ 
nezza: la variabile MN posta a 0, 
infatti, presupporrebbe la cessione 
del controllo al blocco “Giocatore”, 
cosa che qui non avrebbe senso. Più 
avanti vedremo il perché di questa 
stranezza. 

34070-35000 - A questo punto entra 
in funzione l’algoritmo vero e pro¬ 
prio. 

Come già era stato fatto per la 
presa futura, anche qui la LU-esima 
carta di UB (ricordiamoci che que¬ 
sto sottoprogramma è interno al 
sottoprogramma 21000 di selezione 
dello scarto) viene posta nell’ottava 
casella del piatto. Successivamente, 
per ciascuna delle carte contenute in 
HG, si va a vedere se esiste una presa 
possibile (chiamando il sottopro- 



Seguito listino Scopa. 


56530 

IF EX=0 THEN FM<HV)=0.01•HV b HV+1 


56540 

IF EX=1 THEN Ft1<HV>=ll HV=HVM 


56550 

RETURN 


58000 

REM RICERCA PUNTEGGIO MAX 


58100 

U«1X=1 ; VH*1 


58200 

IF MP<W>=0 THEN 58400 


58250 

K1<X)=MP(I4) 


58270 

X=X+1 W=U+I : G0T0 58200 


58400 

F0R C=X T0 5 


58420 

Kl<C>=0 


58440 

NEXT C 


58480 

U=U+1:SM=MPCU) : FZ=FM(VH)■VH=VH+1 


58600 

IF W>0 THEN 59400 


58620 

W=U*1 


58640 

IF MP<UK>0 THEN 58680 


58650 

W=W+1 


58660 

IF W>0 THEN 59400 


58670 

GOTO 58640 


58680 

Q=1 


58690 

IF MP<W>=0 THEN 58900 


58700 

K2(Q>=MP(W) 


58720 

0=0+1 : W=W+I ; G0TQ 58690 


58900 

F0R C=Q T0 5 


58920 

K2(C)=0 


58940 

NEXT C 


58960 

W=W*1 BM=MP<14) FY=FM(VH) : VH=VH+1 


59000 

IF SM>=BM THEN 58600 


59040 

SM=BMFZ=FV 


59060 

F0R C»1 T0 5 


59100 

K1<C>=K2<C> 


59120 

NEXT C 


59140 

GOTO 58600 


59400 

IF FZ=0.01 THEN PR=1 


59450 

IF FZ=11 THEN PR-0 


59460 

F0R AG=2 T0 5 


59470 

IF K1G)=K1(AG> THEN PR=0 


59480 

NEXT AG 


59500 

F0R AG=1 T0 5 


59510 

IF K1(AG>=? THEN E7=4 


59520 

NEXT AG 


59680 

RETURN 


60000 

REM DECODIFICA CARTE 


60010 

IF Z<=10 THEN S*=”4" GOTO 60300 


60020 

IF Z<=20 THEN S*="*" GOTO 60300 


60040 

IF Z<=30 THEN S*="t"-GCT0 60300 


60060 

IF Z<=40 THEN SS=”* n: GOTO 60300 


60300 

IF Z-l OR Z=U OR Z=21 OR Z=31 THEN GOSUB 23000 


60310 

IF Z=2 OR 2=12 OR Z=22 OR Z*32 THEN GOSUB 23100 


60320 

IF Z=3 OR Z=13 OR 2=23 OR Z=33 THEN GOSUB 23200 


60330 

IF Z=4 OR Z=14 OR Z=24 OR Z=34 THEN GOSUB 23300 


60340 

IF Z=5 OR Z=15 OR Z=25 OR Z*35 THEN GOSUB 23400 


60350 

IF Z=6 OR Z=16 OR Z=26 OR 2=36 THEN GOSUB 23500 


60360 

IF Z=7 OR Z=17 OR 2=27 OR 2=37 THEN GOSUB 23600 


60370 

IF Z=8 OR Z=18 OR 2=28 OR Z=38 THEN GOSUB 23700 


50380 

IF Z=9 OR Z=19 OR Z=29 OR Z=39 THEN G0SLIB 23800 


60390 

IF Z=10 OR Z=20 OR Z=30 OR Z»40 THEN GOSUB 23900 


61008 

RETURN 


62080 

F0R C=1 T0 5000-NEXT:RETURN 


62050 

F0R C=1 T0 7500-NEXT'RETURN 


62100 

F0R C=1 T0 2500 : NEXT'RETURN 


62150 

F0R C=1 T0 200 : NEXT : RETURN 


62500 

IF MA>=6 AND CT>=3 AND IM=1 AND MN=0 THEN RETURN 


62535 

IF MA>=6 AND CT>3 AND IM=0 AND MN=1 THEN RETURN 


62510 

F0R HA=1 T0 7 


62520 

IF PT<HA><>0 THEN RETURN 


62540 

NEXT HA 


62550 

F0R HA=1 T0 3 


62560 

frint ; 


62580 

print"wc* assi zara ics» niuzimiiuuiiiiieimiiBS", 

62600 

PRINT"B 3 3 3 3 3 3 3 7IIIIBE2E IZZSirEEZfllEllllllI-: 

62620 



62640 
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gramma 47000) e, se la circostanza si 
verifica, la variabile OB viene posta 
a 1. Da qui si capisce il perché della 
variabile MN posta a 0: il sottopro¬ 
gramma 47000 funge da risorsa con¬ 
divisa, nel senso che calcola per il 
blocco “Giocatore” una, e solo una, 
presa eventuale e per il blocco “C - 
colatore” tutte le possibili prese 
fini del sottoprogramma conter > 
nella riga 33000 interessa saper e 
esiste almeno una presa possib> e 
perciò, pur appartenendo al blc ;o 
“Calcolatore”, la sua funziona' à è 
analoga a quella del blocco “Gì ea- 
tore”. Riepilogando: se la vari bile 
OB diventa 1, significa che la irta 
selezionata da UB per lo scarte pro¬ 
voca una presa sicura (sesta mano) o 
probabile (quinta mano) da parte 
del giocatore. Può anche darsi che 
OB diventi 1, ma la carta di U8 non 
sia direttamente coinvolta ne a pre¬ 
sa. Questo significa che OB arrà 1 
per tutte le carte di UB e per anto il 
calcolatore dovrà selezionare lo 
scarto in base ai parametri già visti 
in 21000. 

42000 - Questo sottoprogramma 
cancella le carte dallo schermo nel 
caso di presa e le trasferisce da una 
zona all’altra nel caso di scarto. 

È un’altra risorsa condivisa, es¬ 
sendo utilizzata sia dal blocco “Gio¬ 
catore” sia dal blocco “Calcolato¬ 
re”. 

42050-42170 - Viene posizionato il 
cursore a seconda della carta scarta¬ 
ta dal giocatore, che viene quindi 
fatta sparire nel modo c nsueto (ve¬ 
di 24500). 

42200-42650 - Per ci' scuna delle 
carte contenute in EL viene posi¬ 
zionato il cursore, azzi ata la corri¬ 
spondente casella del piatto e can¬ 
cellata graficamente la carta. 
42700-42990 - Nel caso di scarto, 
dopo la consueta inizializzazione, la 
carta del giocatore, contenuta in GC 
e G2, o quella del calcolatore, conte¬ 
nuta in Kl (1), vi» ie trasferita su due 
variabili temporanee PV e PW. 
43000-43060 - ''iene cercata la pri¬ 
ma casella vuota del piatto che ospi¬ 
terà la nuova carta. Su di essa verrà 



depositata la variabile temporanea 
PV. 

43070-43900 - Si colloca il cursore 
nella corretta posizione, si trasferi¬ 
sce nella solita variabile Z il conte¬ 
nuto di PV e si chiama il sottopro¬ 
gramma di decodifica (vedi 60000), 
che provvederà a disegnare la carta. 
47000 - Comincia l’algoritmo forse 
più complesso del programma, che 
ha come scopo quello di verificare se 
uno scarto non generava una presa 
(per il blocco “Giocatore”) e quello 
di calcolare le prese immediate e fu¬ 
ture (per il blocco “Calcolatore”). 
47010-47070 - Vengono trasferite in 
CG le carte che hanno come scopo 
quello di essere il termine di con¬ 
fronto: per esempio, nel caso del 
blocco “Giocatore”, la carta scarta¬ 
ta su cui deve essere verificata l’e¬ 
ventualità di una presa. 
47020-47040 - Se è l’utente a giocare, 
la CG, a seconda dell’indice ABC, 
vale la prima, la seconda o la terza 
casella di G2 (trattandosi di opera¬ 
zioni numeriche si opera sui vettori- 
valore). 

47045 - La variabile booleana AA 
posta a 1 segnala che il 47000 è stato 
chiamato all’interno del sottopro¬ 
gramma per la quinta e la sesta ma¬ 
no (vedi 33000). 

47050 - Viene segnalato che gioca il 
calcolatore e ci si trova in situazione 
di presa immediata. 

47055 - Ci si trova in presa futura e 
pertanto il valore CG sarà estratto 
dal vettore fittizio di U2 (U9). 
47060-47070 - Test di protezione da 
errori. 

47080 - Questa variabile (CK) è mol¬ 
to importante e precisa il livello di 
annidamento delle combinazioni di 
verifica. 

47090-47150 - Viene scandito il piat¬ 
to mediante la variabile M. Se la CG 
coincide con uno dei valori delle car¬ 
te del piatto, quest’ultimo valore 
viene trasferito sulle variabili TH e 
SH, che servono ai fini della memo¬ 
rizzazione (vedi 55000) e quindi si 
salta alla 49000. 

47160-47180 - Ciclo di protezione da 
errori. 



47200 - Si chiude il ciclo iniziato alla 
47100. 

47205-47207 - Inizializzazioni. La 
variabile TC, in particolare, servirà 
a rendere più veloce l’algoritmo per 
le verifiche a più annidamenti, in 
quanto calcolerà il numero effettivo 
di carte presenti nel piatto. 

47208 - La variabile booleana ZZ 
posta a 1 segnala che la carta CG 
aveva già una combinazione sempli¬ 
ce con una delle carte del piatto che, 
come sappiamo, ha la precedenza 
sulle combinazioni multiple (corri¬ 
sponde a una sorta di autoverifica 
per la presa minima). Pertanto il va¬ 
lore 5 a CK segnala che ulteriori 
verifiche non si faranno sulla CG. 

47209 - Inizia la verifica delle combi¬ 
nazioni doppie (CK=2). 
47210-47240 - Il piatto viene trasfe¬ 
rito in un piatto effettivo PC e P9 
reso compatto, e cioè senza zeri, e 
con un numero di carte non più ne¬ 
cessariamente uguale a 7, ma speci¬ 
ficato di volta in volta dalla variabi¬ 
le TC. 

47245 - Se le carte effettive sono o 
zero o ce n’è una sola, è ovvio che 
non si possa parlare di combinazio¬ 
ni e pertanto si esce dal ciclo di veri¬ 
fica (vedi 48900). 

47250-47500 - Inizia il ciclo. Il valo¬ 
re M-esimo del piatto viene bloccato 
in SI. Un ciclo interno (variabile N) 
somma tutte le rimanenti carte (cioè 
con M diverso da N) del piatto a S1 e 
verifica che siano uguali a CG. Se lo 
sono, trasferisce le carte coinvolte in 
SK e SY. 

La variabile booleana EN posta a 
1 segnala che la scansione del piatto 
non è stata completata e che pertan- 
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H JACKSONIANO 
LEGGE H MEGUO 

RISPARMIANDO IL 20°/< 


Jackson è il più importante Gruppo Editoriale dell'era informatica ed 

elettronica. 

La Biblioteca Jackson, unica in Italia, comprende oggi oltre 150 titoli. 
Stacca queste pagine. Li troverai divisi per "famiglie”, e ci sono tantissimi 
titoli nuovi. Tutti questi volumi approfondiscono gli argomenti già 
contenuti nei periodici Jackson, sono complementari con essi. Troverai 
manuali per neofiti ma anche testi di fondamentale importanza per i 
tecnici e gli operatori. Una biblioteca che Jackson ha realizzato lavorando 
fianco a fianco con gli specialisti dei vari settori e il contributo di grandi 

Centri di Ricerca. 

Leggi Jackson, potrai scegliere tutto il meglio del campo che più ti 
interessa; e in più, se sei un abbonato alle riviste, risparmi il 20% sul 
prezzo di copertina dei libri fino al 28-2-85 e il 10% per l’intera durata 

deH’abbonamento! 



GRUPPO 

EDITORIALE 

JACKSON 



JACKSON, TU 
SUI PERSONAL E 


GUIDE PRATICHE 


NOVITÀ' 

FACILE GUIDA AL COMMODORE 64 

Una guida che vi insegnerà in poche ore a usare il C64 e le sue periferiche. 
140 pag. L. 12.500 Cod. 400D 

NOVITÀ' 

COMMODORE 64: I FILE 

Un testo completo sull'argomento "file", per chi vuole conoscere a fondo il 
Commodore 64 e farne il miglior uso possibile. 

180 pag. L. 17.000 Cod. 400B 

NOVITÀ' 

UN PERSONAL C<3MPUTER FIRMATO IBM 

Per fare subito amicizia con il Personol Computer IBM: hordwore, applicazio¬ 
ni, programmazione, sistemi operotivi. 

156 pag. L. 13.000 Cod. 404H 

NOVITÀ’ 

MACINTOSH 

Tutto Mac. 120 opplicozioni, o meglio, 120 idee presentate "per immagini", 
usando mouse, icone, menù. 

150 pag. L. 30.000\Cod. 402D 
NOVITÀ' 

ALLA SCOPERTA DELL’APPLESOFT 

Il BASIC è ormai diventato un linguaggio internazionale; questo volume 
insegno a utilizzarlo correttamente nei proqrammi. 

140 pog. L. 12.500 Cod. 400H 

NOVITÀ' 

M20: LA PROGRAMMAZIONE - BASIC E PCOS 

Un libro completo sul personol italiano più famoso; il taglio didattico ne fo uno 
strumento utilizzabile direttamente dagli studenti. 

360 pag. L. 30.000 Cod. 401 A 

NOVITÀ' 

IL PRIMO LIBRO PER M24 

Una presentazione ad ampio raggio del nuovo computer Olivetti; lo configuo- 
zione, gli utenti o cui è destinato, il software. 

150 pog. L. 26.000 Cod. 401P 

NOVITÀ' 

Il BASIC IN 30 ORE PER SPECTRUM 

Per programmare non basto conoscere un linguaggio ma occorre anche 
possedere uno "professionalità"; è il presupposta ai questo corso di alto 
valore didattico. 

530 pog. L. 40.000 Cod. 501B 


APPLE TUTTO FARE 

Il libro spiego, anche ai più digiuni di elettronica, come si progettano e 
realizzano le applicazioni di controllo con calcolatore. 

210 pag. L. 18.000 Cod. 334D 

GUIDA AL SINCLAIR ZX81-ZX80 E NUOVA ROM 

Per avvicinarsi all'Informatica e apprendere i segreti della programmazione 
in BASIC 

262 pag. L. 16.500 Cod.318B 
APPLE II GUIDA ALL'USO 

Per imparare a conoscere e usare uno dei sistemi più diffusi al mondo 
400 pag. L. 26.000 Cod. 331P 

INTRODUZIONE AL MICROCOMPUTER 

Voi. 0 - Il libro del principiante. 

240 pag. L. 16.000 Cod. 304A 

Voi. I - Il libro dei concetti fondomentali. 

320 pag. L. 18.000 Cod. 305A 

IL BASIC DEL PET E DELL'M20 

Un validissimo supporto e strumento di lavoro per chiunque voglia o debba 
imparare a programmare in BASIC con un Commodore o un Olivetti M20 
232 pag. L. 16.000 Cod. 336D 

IMPARIAMO A PROGRAMMARE IN BASIC CON IL VIC/CBM 
176 pag. L. 12.500 Cod. 507A 

IMPARIAMO A PROGRAMMARE IN BASIC CON IL PET/CBM 

L'informatica a disposizione di tutti, senza inutili teorizzazioni e tonta pratica. 
180 pog. L. 11.500 Cod. 506A 

INTERFACCIAMENTO DELL’APPLE 

Il libro indispensabile a un uso "esterno" dell'APPLE: controllo di dispositivi, 
temperature, soglie luminose, liquidi ... 

208 pag. L. 14.(X)0 Cod. 334B 

ALLA SCOPERTA DELLO ZX SPECTRUM 

le grandi possibilità del più piccolo dei microcomputer Sinclair 

320 pag. I. 22.000 Cod. 337B 

PROIBITO) COME AVER CURA DI UN COMPUTER 

Tutto quello che bisogna sapere per non mondare in tilt un calcolatore 

208 pag. L. 14.000 Cod. 333D 

APPLE-MEMO 

Sintassi dei comandi, codici caratteri, messaggi di errore, linguaggio macchi¬ 
na e tante altre utili informazioni. 

150 pag. L. 15.000 Cod. 340H 

LA PRATICA DELL'APPLE 

L'Apple è un personal computer dalle infinite risorse. Questovolume, suddivi¬ 
so in 3 facili ed esaurienti capitoli, insegna come sfruttarle al massimo. 

130 pag. L. 10.000 Cod. 341D 

ALLA SCOPERTA DEL VIC 20 



NOVITÀ' 

PROGRAMMAZIONE DELLO ZX SPECTRUM 

Potete partire da "zero", con loSpectrum davan¬ 
ti e questo libro di fianco, e ben presto il vostro 
calcolatore non avrà più segreti per voi. 

204 pag. L. 18.000 Cod. 531D 


Un libro chiave indirizzato agli utenti BASIC del VIC e a chi vuole approfondi¬ 
re anche l'aspetto hardware e di questo diffusissimo personal computer. 
308 pag. L. 22.000 Cod. 338D 

VOI E IL VOSTRO COMMODORE 64 

Un ricco ed esauriente vademecum sullo pro¬ 
grammazione in BASIC del Personal che va 
oggi per la maggiore. 

256 pag. L. 22.000 Cod. 347D 

L'HOME COMPUTER TI 99/4A 

Dal BASIC,, per chi si avvicina per lo prima 
volta al computer, allo spiegazione dell'ar¬ 
chitettura del TI 99/4A, per i già esperti di 
programmazione. 

186 pag. L. 15.000 Cod. 343B 

PET/CBM GUIDA ALL'USO 

Voi. I - Impiego dei calcolatori CBM, elabo¬ 
razione di testi "editing ", programmozione 
dei CBM e caratteristiche. 

256 pag. L. 20.000 Cod. 332P 
Voi. Il - Unità periferiche, informazioni sul 
sistema CBM, BASIC CBM. 

288 pag. L. 22.500 Cod. 333P 

COMMODORE 64 ■ IL BASIC 

Accurata esposizione del linguaggio BASIC. 
Un libro di programmi per imparare a pro- 
irammore. 

4 pag. L. 26.000 Cod. 348D 
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TTO II MEGLIO 

HOME COMPUTER. 
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PROGRAMMI 


LINGUAGGI 
DI PROGRAMMAZIONE 


NOVITÀ’ 

DIDATTICA CON IL PERSONAL COMPUTER 

L'utilizzo del personal do porte dell' insegnante come strumento didattico. Per 
scuole di ogni ordine e grado. 

160 pag. I. 24.000 Codi 400A 


NOVITÀ' 

PRIMI PASSI IN BASIC 

Imparare il BASIC studiando i programmi: un facile e divertente approccio 
oli informatica. 

48 pag. L. 6.500 Cod. 403D 


NOVITÀ’ 

CONOSCI TE STESSO ATTRAVERSO IL TUO PERSONAL COMPUTER 

Grofologio, numerologia, oroscopo computerizzato, Q.l. e fondamenti dello 
personalità girano sul tuo personol, insegnandoli, nello stesso tempo, o prò- 


NOVITÀ’ 

METODI DI REALIZZAZIONE DEI PROGRAMMI 

Un testo che propone ! più moderni metodi di creazione dei programmi. 
98 pog. I. 10.000 Cod. 401H 


grommare. 

136 pog. L. 13.000 Cod. 401D 

NOVITÀ' 

SPECTRUM TOOL 

Uno serie di interessanti programmi BASIC che si servono di routine scritte in 
linguaggio macchina. 

180 pag. L. 15.000 Cod. 554D 

NOVITÀ' 

IL LIBRO DEI GIOCHI DEL COMMODORE 64 

Un lesto avvincente che vi insegno a sfruttare lo sorprendente grafica, gli 
sprites e le capacità musicali del famoso personal. 

150 pog. I. 13.000 Cod. 349D 

PROGRAMMI E APPLICAZIONI PER LO ZX SPECTRUM - 60 GIOCHI 

60 "videoowenture" do vivere insieme allo ZX Spectrum e in più molti oltri 
programmi utili. 

116 pog. L. 9.000 Cod. 558D 

66 PROGRAMMI PER ZX81 E ZX80 CON NUOVA ROM - HARDWARE 

Come sfruttare tutte le copacità degli ZX e, addirittura, moltiplicarle. 

144 pag L. 12.000 Cod. 520D 

50 ESERCIZI IN BASIC 


NOVITÀ’ 

INTRODUZIONE ALLA PROGRAMMAZIONE 

Un manuale didattico divertente per chi inizia a programmare in BASIC su un 
Personol. 

48 pag. L. 6.500 Cod. 405D 
NOVITÀ’ 

GUIDA ALLA SCELTA DEL COMPUTER 

Come scegliere la macchina e il software adatti a rendere più produttiva la 
propria attività. 

128 pog. L. 12.000 Cod. 400P 

NOVITÀ' 

CONOSCERE IL PERSONAL COMPUTER 

Per entrare subito nel mondo dei microcompuler e dei chip, e imparare 
sorridendo. 

48 pog. L. 6.500 Cod. 406D 
NOVITÀ’ 

GIOCHI CON IL COMPUTER 

Un originale manuole di videogiochi visti dolio porte del computer per rispon¬ 
dere allo domanda: "ma come fo?" 

48 pag. L. 6.500 Cod. 404D 



Una raccolta completa e progressivo di esercizi matematici, gestionali, ope¬ 
rativi, statistici, di svago. 

208 pog. I. 13.000 Cod. 521A 

GIOCARE IN BASIC 

Il gioco come metodo d'apprendimento del BASIC e dei microcomputer. 
324 pag. L. 20.000 Cod. 5Ì2A 

PROGRAMMI PRATICI IN BASIC 

Programmi di tipo finanziario, motemalico, scientifico, manageriale ... già 
pronti e sperimentoti. 

200 pog. I. 12.500 Cod. 550D 

77 PROGRAMMI PER SPECTRUM 

Dolio Grafica allo Business Grafica, dalla musica alle animazioni, dai giochi 
all'Elettronica ... tutte le possibilità offerte dolio Spectrum. 

150 pag. L. 16.000 Cod. 555A 

75 PROGRAMMI IN BASIC PER IL VOSTRO COMPUTER 

Programmi sperimentati e pronti da usore, oppure da rielabarare, ampliare, 
modificare, assemblare. 

196 pag. L. 12.000 Cod. 551D 

SOLUZIONI DI PROBLEMI IN PASCAL 

Un approccio disciplinato alla soluzione di problemi col calcolatore e un 
modo garantito di imparare a programmare. 

450 pog. L. 28.000 cod. 512P 

PROGRAMMI SCIENTIFICI IN PASCAL 

Per costruirsi uno "libreria" di programmi in grado di risolvere i più frequenti 
problemi scientifici e Ingegneristici. 

384 pog L. 25.000 Cod. 554P 

SINFONIA PER UN COMPUTER VIC 20 

Giocore è il modo più semplice e divertente per imparare a usare 
un computer. Un libro di games che riesce a coprire tutta la gamma 
di prestazioni del VIC. 

128 pag. I. 10.000 Cod. 563D 

GIOCHI, GIOCHI, GIOCHI PER IL VOSTRO VIC 20 

Un libro pieno di eccitanti scoperte per tutti coloro che posseggono un VIC 20 
e tanto voglia di divertirsi. 29 programmi di giochi interessantissimi. 

116 pog. L. 9.000 Cod. 557D 

BASIC SU APPLE 

Programmi in pochi minuti: dall'economia domestico" alle 
applicozioni commerciali, dai calcoli statistici 
alla creazione degli archivi. 

184 pag. L. 14.000 Cod. 532H 


NOVITÀ' 

PERSONAL GRAPHICS 

Il libro della grafica col computer, dai disegni statici ai cartoni animati. 
Fantasia e tecnologia. 

170 pog. L. 17.000 Cod. 555D 

NOVITÀ’ 

PROGRAMMAZIONE STRUTTURATA 

Questo corso di autoistruzione insegna i principi fondomentali della program¬ 
mazione strutturata. 

136 pag. L. 11.000 Cod. 503A 

IL BASIC E LA GESTIONE DEI FILE 
Voi. I - metodi pratici 

Dal BASIC microsoft, ai metodi, 
protici, ai messaggi d'errore. 

164 pog. L. 11.000 Cod. 515H 
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NOVITÀ’ 

IL BASIC E LA GESTONE DEI FILE ■ Voi. Il 

Un monuale per il professionista o il manager che vogliono risolvere in "tempo 
reale"" i loro problemi di gestione degli archivi. 

164 pog. L. 14.000 Cod. 516H 

PROGRAMARE IN BASIC 

Caratteristiche e peculiarità del BASIC applicato a: Apple, PET, TRS80. 

94 pag. L. 8.000 Cod. 513A 


DAL FORTRAN IV AL FORTRAN 77 

Per chi deve programmare a livello tecnico scientifico e per chi vuole appro¬ 
fondire le conoscenze del linguaggio. 

266 pag. I. 18.000 Cod. 517P 

CP/M con MP/M 

Un libro destinato a rendere semplice l'uso del CP/M e automaticamente, 
quello dei microcomputer. 

320 pag. L. 22.000 Cod. 510P 


COME PROGRAMMARE 

Tutte le fosi di uno corretta programmazione in BASIC o in quolsiasi altro 
linguaggio. 

192 pog. L 12.000 Cod. 511A 


IL FORTH PER VIC 20 e CBM 64 

La programmazione in FORTH e la sua implementazione sul Commodore VIC 
20 e CBM 64. 

150 pog. L. 11.000 cod. 527B 


INTRODUZIONE AL BASIC 

Tecnico e pratico in un libro che costituisce un vero e completo corso di BASIC. 
314 pog. L 21.000 Cod. 502A 


PROGRAMMARE IN ASSEMBLER 

Il manuole pratico che aspettavano hobbisti e utenti di personal computer. 
160 pag. L. 10.000 Cod. 329A 


IL BASIC PER TUTTI 

Per i neofiti una facile e immediata introduzione al linguaggio BASIC e ol 
mondo dei calcolatori. 

264 pag. L. 17.500 Cod. 525A 

PROGRAMMARE IN PASCAL 

Tutti i vantaggi di un linguaggio sempre più importante e diffuso. 

208 pag. L. 14.000 Cod. 514A 

INTRODUZIONE AL PASCAL 

Per conoscere, capire, usare il linguaggio destinato a spodestare il FORTRAN. 
l'ALGOL, il PL/I ecc. 

484 pag. I. 30.000 Cod. 516A 

IMPARIAMO IL PASCAL 

Consigli, problemi, esercizi per loutoopprendimenlo del PASCAL. Divulga¬ 
zione senza pedanterie. 

162 pog. I. 11.500 Cod. 501A 

PASCAL - MANUALE STANDARD DEL LINGUAGGIO 

Dagli Autori del Pascal, il "libro" sul Pascal. 

186 pag. L. 11.500 Cod. 500P 


IL PERSONAL PER IL MANAGER 


NOVITÀ' 

IL BASIC NEGLI AFFARI 

Un libro che porta il BASIC sulla scrivania dei manager per le tipiche applica¬ 
zioni do ufficio. 

192 pag. I. 15.000 Cod. 402H 
NOVITÀ’ 

LA GESTIONE AZIENDALE CON IL BASIC 

Come accedere direttamente ol calcolatore e ottenere elementi di analisi, 
pianificozione e controllo utili per decidere. 

192 pog 1.15.000 cod. 403H 

NOVITÀ’ 

EPSON HX20 

Il BASIC e 46 programmi. Più che un dedicato olle caratteristiche e olle 
possibilità del potente computer portatile. 

232 pag. L. 20.000 Cod. 345D 



VISICALC 

Il "foglio elettronico", come supporto alle attività contabili e gestionali, è una 
delle oppllcozioni più interessanti dei Personal Computer. 

192 pag. L. 15.000 Cod. 556H 
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PROGRAMMI DI MATEMATICA E STATISTICA TELEMATICA 

Come ocquistore la logico necessario a risolvere con metodo, senza perdite di Dal viewdoto all'office outomotion, un panoramo dei problemi leorico- 

temnfi i nmhlemi crai il calcolatore. pratici di auesto nuovissimo disciplino- 

228 pag. L. 16.000 cod. 552D 284 pog. L 19.000 Cod. 518D - 


OLIVETTI MIO - GUIDA ALL'USO 

Un manuale "veloce" per gli utenti del portatile MIO. Presenta con chiarezza 
il BASIC e i programmi applicativi. 

170 pag. I. 15.000 Cod. 401B 

PROGRAMMI UTILI DEL BASIC PER IBM PC 

65 programmi ampiamente collaudati e pronti all uso; dalla finanza al bilan¬ 
cio familiare, dalla gestione commerciale oi beni immobili, dall'analisi alla 
registrazione doti. 

192 pag. L. 15.000 Cod. 564D 


DATA PROCESSING 
E TELEMATICA 


NOVITÀ' 

TRASMISSIONE DATI 

L'hordwore e il software della Irosmissionedelle informazioni, peri tecnici ma 
anche per gli hobbisti. 

299 pag. L. 23.000 Cod. 528P 

SISTEMI ELETTRONICI DI STAMPA LASER 

Stampa laser nel mondo EDP, Editoria Elettronica nei centri stampa, unità 
terminali per stampa remota ed editoria distribuita ... 

210 pag. L. 17.000 Cod. 614P 


COMPUTER GRAFICA 

L'immagine come informazione e il calcolatore come produttore d'immagine 
174 pog. L. 29.000 Cod. 519P 

DIZIONARIO DI INFORMATICA 

15000 termini inglese-italiono-tedesco; italiano-inglese; tedesco-inglese 
920 pag. L. 55.IMO Cod. 100H 

PRINCIPI E TECNICHE DI ELABORAZIONE DATI 

Per l'outoapprendimento dei principi basilari di flusso e gestione nei sistemi di 
elaborazione. 

254 pog. I. 17.000 Cod. 309A 
NOVITÀ' 

ODISSEA INFORMATICA 

L' informotizzazione della società ei suoi riflessi sulle pubbliche istituzioni in 
una ricerca che esploro temi "orwelliani'. 

620 pag. L. 58.000 Cod. 800P 

VOI E L'INFORMATICA 

In 100 tavole gli strumenti dell'informatica, l'informatico e l'Azienda, realtà e 
prospettive tecnologiche in modo sintetico, rigoroso ma completo. 

116 pog L. 15.000 Cod. 526A 



LE GRANDI OPERE JACKSON 


E.l. Enciclopedia di Elettronica e Informatica 

Realizzata in collaborazione con il Learning Center Texas Instruments 
7 volumi: Elettronica di Base - Comunicozioni - Elettronica Digitale Voi. I e II 
Microprocessori • Informatico di Base - Informatica e Società 
+ 1 volume di Elettrotecnico 

1600 pagine complessive - 700 foto e 2200 illustrazioni a colori 
Prezzo dell opera L. 350.000 (Abb. L. 315.000) Cod. 158A 
N.B. • Sulle grandi opere Jackson lo sconto abbonati è del 10% 


ABC Personal Computer 

Corso progrommato di BASIC. 

2 volumi di HARDWARE e di SOFTWARE; 1 volume di Computer-Test con 24 
test dei principali personal, stomponti e plotter disponibili in Italio; 1 Diziona¬ 
rio di Informatica. 

800 pagine complessive. Centinaio di foto e disegni a colori. Volumi rilegati in 
similpelle. 

Prezzo dell'opera L. 150.000 (Abb. L. 135.000) Cod. 160A 















JACKSON, l'E 
DA CHI LA CON 


ELETTRONICA DI BASE 


CORSO DI ELETTRONICA FONDAMENTALE 

Un testo di alto valore didattico, percepire l'elettronica dello teoria atomico 
ai transistori 

448 pag. I. 17.000 Cod. 201A 

COMPRENDERE L'ELETTRONICA A STATO SOLIDO 

12 leiioni complete ed esaurienti o curo del learning Center Texas Instruments 
'*224 pag. L. 16.000 Cod. 202A 

CORSO PROGRAMMATO DI ELETTRONICA ED ELETTROTECNICA 

In 40 fascicoli monografici, di 2700 pagine complessive, i concetti fondamen¬ 
tali di elettrotecnica ed elettronico di base dallo teoria atomica all'elabora¬ 
zione dei segnali digitoli. 1000 lezioni con domande, risposte, esercizi, test... 

L 109.000 Cod. 099A 

INTRODUZIONE Al CIRCUITI INTEGRATI DIGITALI 

Un'introduzione pratica che demistifica molti luoghi comuni e rende accessibi¬ 
le a tutti l'argomento 
112 pag. L. 8.000 Cod. 203A 

ELETTRONICA INTEGRATA DIGITALE 

Un testo didattico chiaro, completo, moderno, con oltre 400 problemi, dedica¬ 
to a specialisti e studenti. Fondamentale. 

720 pag. L. 38.000 Cod. 204A 


PROGRAMMAZIONE DELLO Z80 

Un corso sistematico per imparare lo progrommozione in linguaggio Assem- 

bley usando lo Z-80 

530 pag. L. 26.000 Cod. 328D 

NANOBOOK Z80 

I nonocomputer NBZ80 e NBZ80S usati come strumenti didattici, per imparare 
il software, per affrontare i problemi e le tecniche di interfacciamento con 
CPU, PIO, CTC. 

Voi. I - Tecniche di Progrommozione • 256 pag. L 17.000 Cod. 310P 
Voi. Ili - Tecniche di interfacciamento - 464 pag. I. 20.000 Cod. 312P 

IL BUGBOOK VII 

L'interfocciomenlo fra microcompuler e convertitori analogici. Esperimenti 
per sistemi 8080/A - Z80 - 8085 
272 pag. L. 17.000 Cod. 007A 

TECNICHE D'INTERFACCIAMENTO DEI MICROPROCESSORI 

I concetti, le tecniche di base, i componenti per assemblare un sistema 
400 pog. L. 25.000 Cod.314P 

LA PROGRAMMAZIONE DELLO Z8000 

L'architettura e il funzionamento, nonché molti esempi di programmi dello 
Z8000 

302 pag. L. 25.000 Cod. 321D 

PROGRAMMAZIONE DELLO Z80 E PROGETTAZIONE LOGICA 

Linguaggio assembly e logico digitale, più alcune efficienti soluzioni per 
spiegare l'uso corretto del microprocessore 
400 pog. L. 21.500 Cod. 324P 


MICROPROCESSORI 
E INTERFACCIAMENTO 


USARE IL MICROPROCESSORE 

L'utilizzo più razionale del microprocessore nel controllo di impianti e processi 
296 pog. L. 17.000 Cod. 327A 

MICROPROCESSORI 

Dai Chip ai Sistemi. I concetti, le tecniche e i componenti riguardanti il mondo 
dei microprocessori. 

384 pag. I. 25.000 Cod. 320P 


PROGRAMMAZIONE DEL 6502 

Un lesto autonomo e completo per imparare lo programmazione in linguag¬ 
gio Assembley 

390 pog. L. 25.000 Cod. 503B 
GIOCHI CON IL 6502 

Tecniche di progrommozione avanzate e loro sperimentozione attraverso il 
modo pratico e divertente dei giochi 
312 pag. L. 19.500 Cod. 505B 

ESPERIMENTI CON TTL E 8080A 

Elettronica digitole, tecniche di programmazione e interfacciamento dei mi¬ 
crocompuler 

Voi. I - 496 pag. L. 22.000 Cod. 005A 
Voi. Il - 490 pog. L. 22.000 Cod. 006A 



PROGRAMMAZIONE DELL'8080 E PROGETTAZIONE LOGICA 

Implementozione dello logica sequenziale e combinatoria, e uso del linguag¬ 
gio assembly, all'interno di un sistemo basato sull'8080 
296 pog. 1.19.000 Cod. 325P 

APPLICAZIONI DEL 6502 

Le tecniche e i programmi per applicazioni tipiche del 6502 e dei sistemi su di 
lui bosoti 

214 pog. L. 15.500 Cod. 504B 

TEA, UN EDITOR ASSEMBLER RESIDENTE PER L'8080/8085 

Un valido contributo per scrivere e modificare programmi sorgente scritti in 
assembley secondo i codici mnemonici dei due microprocessori 
252 pag. I. 14.000 Cod. 322P 

DBUG 

Un programmo interprete per la messa a punto del software 8080 
112 pag. I. 7.000 Cod. 313P 

8080A/8085 - PROGRAMMAZIONE IN LINGUAGGIO AS¬ 
SEMBLY 

Un manuale teorico-pratico per tecnici, studenti, appassionoti 
che vogliono approfondire le loro conoscenze nel settore dei 
microcomputer 

512 pog. I. 27.500 Cod. 323P 

INTERFACCIAMENTO DI MICROCOMPUTER 

Esperimenti utilizzanti il CHIP 8255 PPI, interfaccia periferico 
progrommobile dello famiglia 8080 
220 pog. L. 12.000 Cod. 004A 

CAPIRE I MICROPROCESSORI 

Funzioni, memorie ROM e RAM, interfocce ... tutto quello che 
bisogna conoscere su tecnologie e applicazioni dei micropro¬ 
cessori 

126 pag 1.10.000 Cod. 342A 


I MICROPROCESSORI E LE LORO APPLICAZIONI: SC/MP 

lo soluzione dei classici problemi che si presentono nella progeltozione con 
sistemi a microprocessore 
158 pag. L. 11.000 Cod. 301D 

Z80 PROGRAMMAZIONE IN LINGUAGGIO ASSEMBLY 

Le funzioni assembler, le istruzioni assembly, i concetti di sviluppo del software 
640 pog. L. 34.000 Cod. 326P 
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LETTRONIU 
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COMPONENTI, PROGETTI, 
APPLICAZIONI 


NOVITÀ’ 

MANUALE DI OPTOELETTRONICA 

Un valido supporto per i progettisti elettronici, per realizzare schemi pratici, 
economici e affidabili. 

207 pog. L. 15.000 Cod. 613P 


LA SOPPRESSIONE DEI TRANSITORI DI TENSIONE 

Cause, effetti, rimedi ai danneggiamenti, dei transitori d'alta tensione 
224 pog. L. 12.000 Cod. 61 IH 

LE CO M U NI CAZ I O NI R AD I O IN M AR E- 

Come orientarsi grazie alla moderno strumentozione e ai suoi codici 
200 pog. L. 15.000 Cod. 706A 

MANUALE PRATICO DEL RIPARATORE RADIO TV 

I segreti di un'esperienza ventennale messi ol servizio di tutti 
352 pog. L. 23.000 Cod. 701P 


NOVITÀ' 

FIBRE OTTICHE 

Lo teoria, i componenti base e gli impieghi pratici delle fibre ottiche affrontati 
in modo chiaro ed esauriente. 

192 pog. L. 15.000 Cod. 614A 

DAL TRANSISTOR AL MICROPROCESSORE 

Lo moderno circuitela o stato solido, la sua evoluzione, le sue prospettive. 
80 pog. L. 7.500 Cod. MIA 

MANUALE PRATICO DI PROGETTAZIONE ELETTRONICA 

Per hobbisti, dilettanti, sperimentatori e ingegneri olle prese con la compren¬ 
sione e l’uso dei circuiti elettronici. 

488 pog. L. 30.000 Cod. 205A 

CIRCUITI LOGICI E DI MEMORIA 

Un opproccio diretto ol mondo dell'elettronico digitale 
Voi I - 384 pog L. 22.000 Cod. 001A 
Voi. Il • 352 pog. L. 22.000 Cod. 002A 


IMPIEGO PRATICO DELL'OSCILLOSCOPIO 

Come funziona e come usare • con facilitò e precisione-questo indispensabile 
strumento. 

112 pog. L. 16.000 Cod. 705P 
AUDIO & HI-FI 

Una guida prezioso per conoscere l'HI-FI 
128 pog. L. 7.000 cod. 703D 

MANUALE PRATICO DI REGISTRAZIONE MULTIPISTA 

Regole generoli, problemi, soluzioni e termini gergali 
164 pog. I. 10.000 Cod. 704D 


OLTRE L’ELETTRONICA 


I TIRISTORI - 110 PROGETTI PRATICI 

Dal controllo dello luminosità delle lompade o quello (automatico) di stufe, 
dalla velocità dei motori elettrici oi sistemi antifurto ... 

144 pog. L. 9.000 Cod. 606D 


MICROPROCESSORI AL SERVIZIO DEL MANAGEMENT 

CAD/CAM e robotica: lo loro applicazione in Azienda, l'impatto su qualità e 
produttività, le prospettive. 

292 pog. I. 20.000 Cod. 335H 


MANUALE DEGLI SCR, TRIAC ED ALTRI TIRISTORI - Voi. I 

Una guida alle applicazioni di questa famiglia di dispositivi a semiconduttore 
378 pag. L. 24.000 Cod. 612P 

PROGETTAZIONE CIRCUITI PLL 


COMPUTER GRAPHICS, CAD, ELABORAZIONE D'IMMAGINI: SISTEMI 
E APPLICAZIONI 

Linguaggi e algoritmi, sistemi grafici, integrazione CAD/CAM, didattica e 
formazione professionale. 

512 pag. L. 45.000 Cod. 529C 



L'oscillatore controllato in tensione, i sintetizzatori digitali di frequenza, i 
circuiti integrati monolitici ... 

256 pag. L. 16.000 Cod. 604A 

LA PROGETTAZIONE DEI FILTRI ATTIVI 

Attraverso una vasto gamma di tavole e grafici una pratica esemplificazione 
di come si costruiscono i filtri attivi 
280 pag. L. 17.000 Cod. 603B 

GUIDA Al CMOS 

22 utili esperimenti per possore dalla logica TTL a quella CMOS 
220 pog. L. 17.000 Cod. 605B 

GLI AMPLIFICATORI DI NORTON QUADRUPLI LM 3900 E LM 359 

Teoria, sperimentazione e ... pratica attraverso 22 esperimenti realizzati 
posso posso 

480 pag. L. 24.000 Cod. 610B 
IL TIMER 555 

Cos’è e come si utilizza questo onnipresente temporizzatore integrato 
172 pag. L. 10.000 Cod. 601B 

LA PROGETTAZIONE DEI CIRCUITI OP-AMP 

Gli schemi di circuiti fondamentali che costituiscono le unità di base 

dei sistemi più sofisticati 

276 pag. L. 17.000 Cod. 602B 

GUIDA MONDIALE DEI TRANSISTORI 
286 pag. L. 23.000 Cod. 607H 

GUIDA MONDIALE DEGLI AMPLIFICATORI OPERAZIONALI 
196 pog. L. 17.000 Cod. 608H 

GUIDA MONDIALE DEI TRANSISTORI AD EFFETTO DI CAMPO 
JFET E MOS 

Conoscere subito l'esatto equivalente di un transistore, di un amplificatore 
operazionale, di un FET significo risparmiare tempo, denaro e fatica 

80 pag L. 11.500 Cod. 609H 


MICROELETTRONICA: NUOVA RIVOLUZIONE INDUSTRIALE 

I come e i perchè della nuova rivoluzione industriale e lo scenario tecnico- 
economico-sociale del prossimo ventennio. 

180 pog. L. 11.500 cod. 315P 
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Scopa 
a tre carte 

to potrebbero esserci altre combina¬ 
zioni utili. Si salta alla 49000, dopo 
di che si richiudono i due cicli N ed 
M. 

47580-47610 - Inizia la verifica delle 
combinazioni triple. Anche in que- 
_ sto c aso l a ver ifica, h a-se n s o s o l o se l e 

carte del piatto sono almeno tre. 
47620-48050- Inizia il ciclo di verifi¬ 
ca. La variabile M blocca in SI una 
carta del piatto compatto P9. La va¬ 
riabile N scandisce il piatto per ogni 
M, bloccando in S2 la somma di SI 
con una carta di P9. Infine la varia¬ 
bile B scandisce il piatto per ogni N, 
verificando che la somma di S2 con 
una carta di P9 coincida con CG. Se 
c’è coincidenza, parte un meccani¬ 
smo analogo a quello visto per le 
combinazioni doppie. Oltre ad SK 
ed SY ci sarà una terza variabile di 
trasferimento SX per la memorizza¬ 
zione (vedi 55000). La variabile EN 
ha lo stesso significato visto per le 
combinazioni doppie. 

48180-48900 - Inizia la verifica per le 
combinazioni quadruple. II procedi¬ 
mento è identico a quello già visto 
per le doppie e le triple, a parte la 
variabile più interna V, che scandi¬ 
sce il piatto P9 una quarta volta, per 
ogni B. L’unica differenza di proce¬ 
dimento formale risiede nel fatto 
che qui, come si può vedere, sono 
stati usati dei cicli FOR-NEXT e 
non esiste una variabile EN. Questo 
è stato fatto per motivi di chiarezza 
ed efficienza, anche se esiste ovvia¬ 
mente il rischio, peraltro improba¬ 
bile, che il calcolatore non riconosca 
una seconda combinazione utile di 
quattro carte per CG qualora, sulla 
stessa CG, ne abbia già evidenziata 
una. 

48905-48950 - Vengono cancellati 
eventuali messaggi di errore e il sot¬ 
toprogramma termina. Infatti, sia 
che giochi il calcolatore, sia che gio¬ 
chi l’utente, se il sottoprogramma 
arriva a questo punto significa che 
tutte le verifiche hanno dato esito 
negativo e che perciò, per esempio 
nel caso dell’utente, la carta che que¬ 
st’ultimo si accingeva a scartare non 
I provocava alcuna presa. 



Seguito listato Scopa. 


62660 PRINT '3K !■ MEES 3 3 « niIUSIIIMIIIIIHMIimK" 

62680 F0R HB=1 T0 200NEXT 
62800 

62820 PRINT" IIIIinmiUIlUlimillllK 

62840 PRINT" IIIIIIIIIIKIIIIKIIIIMIIIIIS 

62860 PRINT" _ IHHUUtimUIMUIlllllIil , 

62880 PRINT' ; 

62900 PRINT” lllllIIIIIRSIIIk|jCllllllllll[F ,' 1 , 

62940 F0R HB=1 T0 200NEXT 
62960 NEXT HA 
62970 IF MN=1 THEN VS-VS+I 
62973 IF MN=0 THEN ZS*ZS+1 
62980 RETURN 

63000 PRINT"maDICI0C0 DELLA SCOPA A TRE CARTE" 

63820 PRINT"®WHW" 

63080 PRINT"-; 

63098 PRINT” _ST W 

63100 print" isni a sr 

63120 PRINT" !3 B STEFANO” 

63140 PRINT” E 9W^S 9 GUARINELLI " 

63160 PRINT” irsi! 1984” 

63200 PRINT" 7 9 —’ 

63210 PRINT”._" 

63250 PRINT PRINT PRINT'TER COMINCIARE BATTERE S RETURN 5" 

63300 RETURN 

63700 PRINT" 3 SI 9 11111111119 a NO miSCIIII; 

63705 RA=RND<1> 

63710 GET MNi lF MN*<>”S” AND MN*0"N” THEN 63730 
63720 GOTO 63790 
63730 GOSUB 62130 

63750 PRINT"! a SI IKCCEitIL'3 NO ■ 'ICIHIII , 

63760 GET MNMF MN*C"S" AND MN*0"N" THEN 63770 

63765 GOTO 63790 

63770 GOSUB 62150 

63780 GOTO 63700 

63790 RETURN 


49000 - La variabile booleana WW 
posta a 1 segnala che la D-esima car¬ 
ta di UB può prendere. Pertanto il 
vettore YU (booleano) riceve un I 
nella D-esima posizione, eviden¬ 
ziando così che questa carta non 
può più essere utilizzata per ulteriori 
verifiche (scarto o presa futura). 

49001 - Dopo la memorizzazione 
delle carte coinvolte e del calcolo 
della relativa convenienza (vedi 
55000) la variabile EN posta a I ri¬ 
corda che la scansione del piatto 
non era stata terminata. A seconda 
quindi del valore del livello di anni- 
damento (CK) si tornerà all’interno 
dei cicli che avevano dato esito posi¬ 
tivo nella verifica. 

49002 - Se invece la scansione era 
terminata, si riparte dalle istruzioni 
successive. 

49005 - La variabile booleana AA 
posta a I segnala che il blocco “Cal¬ 
colatore” sta utilizzando il sotto¬ 
programma per la verifica sulla 


quinta e la sesta mano (vedi 33000). 
Se si arriva a questo punto, significa 
che le verifiche hanno dato esito po¬ 
sitivo e perciò la variabile booleana 
OB va a 1. Il sottoprogramma 47000 
termina qui perché ovviamente non 
deve essere stampato alcun messag¬ 
gio (ricordiamoci che il sottopro¬ 
gramma 33000 utilizzava il 47000 
come lo utilizza il blocco “Giocato¬ 
re”, ponendo addirittura a 0 la va¬ 
riabile MN che precisa il turno di 
gioco). 

49007-49050 - Viene stampato, nel 
caso del blocco “Giocatore”, il mes¬ 
saggio “Obbligo di presa”; la varia¬ 
bile booleana ER viene posta a 1 per 
indicare che c’è un errore e che quin¬ 
di l’utente deve reimpostare la mos¬ 
sa. 

52000 - I nizia il sottoprogramma 
che verifica se vi è stata una presa 
per il blocco “Giocatore” e se que¬ 
sta è stata minima, cioè se è stata 
data la priorità alle combinazioni 
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semplici. 

52050 - La variabile I, come abbia¬ 
mo già visto (vedi 12300), memoriz¬ 
za il numero delle carte del piatto 
coinvolte nella presa. Ovviamente, 
se vale I, significa che la presa è sicu¬ 
ramente minima e pertanto il sotto¬ 
vale 1, eppure c’è una carta del piat¬ 
to che vale quanto TP (vedi 12570- 
12700), significa che la presa non è 
minima e pertanto, dopo aver posto 
a 1 la consueta variabile di errore 
ER e dopo aver stampato il messag¬ 
gio “Presa non valida”, il sottopro¬ 
gramma termina. 

53000-53950 - Questo sottopro¬ 
gramma fornisce la convenienza di 
ogni singola carta (punteggio inter¬ 
no). Viene utilizzato dal blocco 
“Calcolatore” all’atto della memo¬ 
rizzazione delle mosse utili (vedi 
55000). Da notare il valore partico¬ 
lare degli ori e il valore variabile dei 
7, determinato dalla già vista varia¬ 
bile E7. La convenienza di ogni car¬ 
ta è stata determinata su basi empi¬ 
riche ed è ovviamente suscettibile di 
critiche. 

55000 - Inizia il sottoprogramma 
che prepara il già citato vettore MP, 
destinato a contenere le carte coin¬ 
volte nelle varie mosse e le relative 
convenienze. 

55003-55005 - Dopo la consueta ini- 
zializzazione la variabile EX posta a 
I ricorda che il sottoprogramma è 
stato chiamato in un caso di presa 
futura. Il valore della convenienza, 
come si era accennato nella prima 
parte dell’articolo, viene pertanto 
inizializzato a -8. 

55007 - Se il livello di annidamento è 
5 (ricordiamoci che questo sotto¬ 
programma è interno al 47000), si¬ 
gnifica, come già si era visto, che 
sono terminate le verifiche. 
55010-55410 - Inizia il riempimento 
di MP, che è scandito dalla variabile 
O (lettera). A seconda del caso di 
presa immediata o futura vengono 
memorizzate le carte del vettore rea¬ 
le UB, oppure di quello fittizio. Per 
quanto riguarda la presa futura la 
carta BS (vedi 17060) sarà memoriz¬ 


zata due volte: sia come carta del 
piatto sia come carta da giocare. 

Infatti sarà la BS a dover essere 
scartata per preparare la presa, ma 
nella combinazione di verifica essa 
risulta essere oggetto della combina¬ 
zione in qualità di carta del piatto. 


carta del piatto coinvolta nella presa 
(essendo la presa futura in realtà 
uno scarto, quest’ultima carta, an¬ 
cora uguale a BS, non verrà utilizza¬ 
ta), poi uno 0 che funge da separato¬ 
re. In seguito viene richiamato il sot¬ 
toprogramma che calcola il punteg¬ 
gio interno delle carte in questione, 
punteggio che viene sommato e de¬ 
positato in VP. 

55420 - Viene chiamato il sottopro¬ 
gramma che calcola il rischio della 
mossa, che viene sottratto a VP (ve¬ 
di 30000). 

55430 - La variabile booleana CM 
posta a 1 segnala che la mossa (di 
presa immediata, EX=0) è una Sco¬ 
pa, pertanto la convenienza viene 
incrementata di quindici unità. 
Quindi si aggiunge un altro 0 sepa¬ 
ratore e si salta alla 56500. 
55600-55610 - Inizia la fase di riem¬ 
pimento dj MP quando le.carte coin¬ 
volte nella presa derivano da una 
combinazione multipla. Anche in 
questo caso si distingue la presa im¬ 
mediata dalla presa futura per l’in¬ 
serimento della carta di UB nella 
prima posizione della sequenza. 
55650-55840 - A questo punto è Io 
stesso sottoprogramma 47000 che, 
come si era visto, trasferisce le carte 
del piatto coinvolte in SK, SY, SX, 
... ecc., e al sottoprogramma 55000 
non resta altro che memorizzarle. 
55850-55950 - Se il grado di annida¬ 
mento era superiore a 2, occorre ag¬ 
giungere un’altra variabile di trasfe¬ 
rimento. Altrimenti si passa a calco¬ 
lare (con il procedimento già visto 
per le combinazioni semplici) la 
convenienza e il rischio. 
56000-56160 - Lo stesso dicasi se il 
livello di annidamento era superiore 
a 3, dove occorre aggiungere un’ul¬ 
teriore variabile “passata” dal sot¬ 
toprogramma esterno 47000. 



56500-56520 - Tutte le variabili di 
trasferimento vengono inizializzate 
per la prossima mossa. 

56530-56550 - Il vettore FM ha una 
casella per ogni sequenza di mosse 
in MP e precisa per ciascuna se si 
tratta di presa (nel caso di presa im¬ 
mediata, EX=0) o scarto (nel caso 
di presa futura, EX=1). Quanto so¬ 
pra indicato da due numeri conven¬ 
zionali del tutto arbitrari: 0,01 e 11. 
Quindi il sottoprogramma termina. 
58000 - Questo sottoprogramma ri¬ 
cerca la convenienza più alta e le 
carte che l’hanno prodotta. 
58100-58270 - Viene riempito il vet¬ 
tore K1 con le carte di MP fino al 
primo 0 di quest’ultimo. 
58400-58440 - Poiché il vettore K1 
ha cinque spazi, ma potrebbe non 
essere stato riempito fino in fondo, 
gli spazi non utilizzati vengono az¬ 
zerati, in modo da evitare errori do¬ 
vuti a carte residue di precedenti 
mosse. 

58480- Il primo numero dopo lo Odi 
MP, che è la convenienza, viene tra¬ 
sferito in SM; il tipo di mossa (presa 
o scarto) memorizzato in FM viene 
trasferito in FZ. 

58600 - Se la variabile W, che scan¬ 
disce MP, ha superato il valore della 
variabile 0, che provvedeva al suo 
riempimento, significa che esiste 
una sola mossa possibile e che per¬ 
tanto non occorrono ulteriori con¬ 
fronti. 

58620-58960 - Con un procedimento 
analogo al precedente una seconda 
sequenza di carte viene caricata su 
un vettore temporaneo K2, la relati¬ 
va convenienza in BM e il tipo di 
mossa in FY. 
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59000-59140 - Si esegue il confronto 
fra le convenienze. Quella più alta 
vedrà le proprie carte trasferite in 
K1. Quindi si salta nuovamente alla 
58600 riempiendo, se ci sono ancora 
sequenze su MP, un altro array K2e 
rieseguendo il confronto con K L_ 
- 59 4 00 - 59450 - Al termine, con tutte 
le carte “migliori” in K1 e il tipo di 
mossa relativo in FZ, si converte 
quest’ultimo in termini di PR, che è 
la variabile riconosciuta dal pro¬ 
gramma principale. 

59460-59480 - Questo ciclo serve co¬ 
me protezione da errore, ma in real¬ 
tà potrebbe addirittura sostituire la 
funzionalità svolta dal vettore FM. 

Si è deciso di lasciarli entrambi 
perché rappresentano due soluzioni 
completamente diverse del medesi¬ 
mo problema. La prima (quella di 
FM) concettualmente più “elegan¬ 
te”, ma altrettanto “delicata”, la se¬ 
conda (questo piccolo ciclo, appun¬ 
to) estremamente pratica ed effi¬ 
ciente, ma basata più che altro su un 
“trucchetto”. Non scenderò in par¬ 
ticolari per spiegare il perché della 


per il calcolo della convenienza e per 
le combinazioni numeriche gestite 
dal 47000) questa ripetizione si avrà 
anche nel vettore Kl. Pertanto, se 
una delle quattro rimanenti carte di 
Kl coincide con la prima (ricordia- 

mny j Hip Kl i- un-wttf H'f- r 1 1 1 1 irr f- 

significa che la mossa è uno scarto, 
altrimenti è di presa. 

59500-59600 - Anche qui, come per 
il blocco “Giocatore”, non appena 
il settebello esce di scena la variabile 
E7 fa decrescere il punteggio interno 
dei 7 rimanenti. 

Termina quindi il sottoprogram¬ 
ma. 

60000- Inizia il sottoprogramma di 
decodifica, che permette il disegno 
delle carte. 

60010-60060 - In base al valore di Z 
viene innanzitutto fissato il seme 
che, come abbiamo visto (vedi 
23000-23900), deve essere deposita¬ 
to nella variabile SS. 

60300-61000 - A seconda del valore 
di Z vengono chiamati i sottopro¬ 
grammi di disegno delle carte. Ter¬ 
mina quindi il sottoprogramma. 


62500-62505 - Questi due test servo¬ 
no ad impedire che la presa dell’ulti¬ 
ma carta in ultima mano venga con¬ 
siderata Scopa, contravvenendo alle 
regole del gioco, che prescrivono il 

contra rio. _ 

62510-62540 - F il ciclo di verifica 
vero e proprio. Se esiste anche una 
sola carta sul piatto, si esce dal sot¬ 
toprogramma. Altrimenti, se cioè il 
piatto è rimasto vuoto, si passa alla 
62550. 

62550-62960 - Viene stampata tre 
volte, a intermittenza, al centro del 
video la scritta “SCOPA!”. 
62970-62980 - A seconda del turno 
di gioco vengono incrementate le 
variabili che contano le Scope rea¬ 
lizzate dal calcolatore ( YS) e dal gio¬ 
catore (ZS), che servono ai fini del 
calcolo del punteggio finale. 
63000-63300 - Presentazione del 
programma. 

63700-63790 - Questo sottopro¬ 
gramma fa stampare un doppio cur¬ 
sore intermittente e viene utilizzato 
nel programma, quando vengono ri¬ 
volte domande all’utente al di fuori 


delicatezza della struttura FM. 

Il ciclo qui esaminato, invece, 
funziona nel seguente modo. Poi¬ 
ché, come si era visto all’inizio del 
55000, la presa futura fa ripetere due 
volte la stessa carta nel vettore di 
presa (una volta per lo scarto, una 


62000-62150 - Si tratta di una serie 
di sottoprogrammi di pausa impie¬ 
gati in diversi punti del programma. 
62500 - Inizia il sottoprogramma 
che di ogni mossa (sia per il giocato¬ 
re che per il calcolatore) va a verifi¬ 
care se c’è stata Scopa. 


della partita (Es.: “vuoi giocare an¬ 
cora?”), usando delle GET che, co¬ 
me si sa, non fanno stampare di per 
sé (a differenza dell’INPUT) alcun 
cursore intermittente. ■ 


TELEMATICA 

Dal vlewdata all'office automation 


Tutti oggi partono di telematica, di so¬ 
cietà dell'Informazione, di banche da¬ 
ti 

Ma coso è la telematico? Un Insieme 
di servizi di vldeolnformazione e tra¬ 
smissione di doti e testi Innanzitutto lo 
videoinformazione Esso rappresenta 
un servizio che. utilizzando le reti telefo¬ 
niche pubbliche, permette od un 
qualsiasi utente, dotato di un televiso¬ 
re a colori adatto, di richiedere e rice¬ 
vete informazioni memorizzate su op¬ 
portune banche di doti (Videotel e Te¬ 
levideo) Poi vi sono l servizi pubblici 
per la trasmissione di testi scritti do ter¬ 
minale o ferminole ed II fac-slmile Essi 
sono basilari, tra Poltro, per la realizza¬ 
zione dello "posta elettronica" 
le opplicazloni della telematica sono 
infinite ed In parte ancora do scoprire 
Esso è, Innanzitutto, un nuovo e poten¬ 
te "medium” nel compo della comu¬ 
nicazione e dell'ìnformozione. ma è 


anche lo strumento principale che ri¬ 
voluzionerà l'organizzazione e la pro¬ 
duttività del lavoro di ufficio, per realiz¬ 
zare quello che si chiama " office auto- 
matlon” 

Questo libro intende dare un Impulso 
alla conoscenza dello telematico, e si 
prefigge di offrire al lettore un panora¬ 
ma del problemi connessi con questo 
disciplina e con I relativi aspetti appli¬ 
cativi Le caratteristiche dell'esposizio¬ 
ne fanno si che II volume possa propor¬ 
si Indifferentemente oli'esperto EDP e 
di organizzazione, quanto allo studio¬ 
so che si accosta per la prima volta a 
questa motoria l'esperto troverà un si¬ 
curo riferimento per lo risoluzione di 
problemi teorici e pratici, mentre lo stu¬ 
dioso troverà. In uno forma organica, i 
principi fondamentali Indispensabili 
per lo conoscenza delle varie proble¬ 
matiche 
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Facile 


CALCOLARE... I MODIFICARE... I DECIDERE... 


E' facile con Multiplan. 
Questo programma per la 
gestione del "foglio 
elettronico" trasforma il 
vostro personal computer in 
un prestigioso calcolatore che 
utilizerete senza problemi. 
Istruzioni, comandi e ampia 
documentazione. 
Incolonnamene variabile. 
Indirizzamento relativo o 
assoluto. Tutto facilita il 
lavoro. Completo di guida 
molto chiara che potete far 
apparire, a richiesta, sullo 
schermo. 


Desiderate cambiare dei 
parametri? Multiplan 
ricalcola automaticamente 
tutto ciò che ne deriva. La 
medesima cosa su più fogli di 
calcolo che potrete legare tra 
loro a volontà. Integrando 
funzioni logiche, funzioni 
statistiche Multiplan si rivela 
il "foglio elettronico” più 
potente sul mercato. 


Con Multiplan avrete sotto 
gli occhi tutte le cifre per 
prendere decisioni oggettive. 
Eletto programma dell'anno, 
già uno dei best-sellers 
mondiali del 1983, Multiplan 
è disponibile presso i migliori 
computer shop. 


con Multiplan 
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il software che ti rende 
facile la vita. 
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— Parte sesta — 


Utilizziamo 

gli operatori logici 


di Alessandro Guida 


Le operazioni logiche 

F inora abbiamo operato sui 
numeri binari (anche se 
espressi con la notazione 
esadecimale) in maniera tradiziona¬ 
le. Vi abbiamo operato con addizio¬ 
ni e sottrazioni. Ma su questa classe 
di numeri è possibile un’altra serie di 
operazioni, dette operazioni logiche. 
Ognuna di queste operazioni (AND, 
OR, EXCLUSIVE OR) ha delle sue 
regole ben definite, che vedremo ca¬ 
so per caso. 

Tutte le operazioni logiche vengono 
effettuate tra due operandi, uno dei 
quali è sempre l’accumulatore. L’al¬ 
tro operando è individuato dal tipo 
di indirizzamento utilizzato (gli in¬ 
dirizzamenti sono gli stessi già visti 
per le istruzioni ADC e SBC). Il ri¬ 
sultato è sempre posto nell’accumu¬ 
latore. 


AND 

Operazioni semplici come l’addi¬ 
zione sono governate da regole pre¬ 
cise. Addizionando due bit, per 
esempio, avremo che se sono en¬ 
trambi zero il risultato sarà zero, se 
uno dei due è uno, il risultato sarà 
uno e, infine, se ambedue sono 
uguali a uno, il risultato sarà zero 
più un riporto al bit successivo. 
Questo discorso può essere riassun¬ 
to nella tabella la. 


In questa abbiamo tutte le quattro 
possibili combinazioni tra i due ope¬ 
randi. L’incrocio tra il contenuto 
dell’accumulatore e quello della me¬ 
moria è il risultato. 

Per le operazioni logiche si avranno 
delle tabelle simili, tenendo presen¬ 
te, però, che non vi sarà mai riporto. 
Le operazioni avvengono quindi tra 
i singoli bit. 

Le regole per l’operazione AND so¬ 
no riportate nella tabella lb. Si può 
notare che l’unico caso in cui il risul¬ 
tato è uno è quando i due operandi 
sono entrambi uno. 

In effetti, la funzione eseguita da 
questa istruzione è bene espressa 
dalla sua traduzione letterale: E. 

Il risultato sarà uno quando un ope¬ 
rando E l’altro sono uguali ad uno. 

Poiché le operazioni logiche sono 
eseguite su un byte (otto bit) il risul- 



Tabella 1. Tabelle della verità per le operazioni di addizione. A ND. OR e EOR. 


tato si avrà eseguendo l’AND degli 
otto bit, uno per uno. 

Ecco alcune operazioni d’esempio: 

11110000 AND 
01010101 = 

01010000 

11111111 AND 
10000001 = 

10000001 

limili AND 
00000000 = 

00000000 

L’uso più ricorrente che viene fatto 
dell’istruzione AND è per masche¬ 
rare alcuni bit. In certe situazioni, 
infatti, può nascere la necessità di 
rimettere a zero alcuni particolari 
bit, lasciando gli altri invariati. 

Se, per esempio, si vuole azzerare il 
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Istruzione; AND 

- Eseque 

l'operazione 

AND 

ORA 

- Esegue 

l'operazione 

OR 

EOR 

- Eseque 

l'operazione 

EXCLUSIVE OR 

FLAG a Iterati! 

N V B 

D I Z C 



X 

X 



Nodo indirizzamento 

Cod 

i c i 


Implicato 

Accumulatore 

AND 

ORA 

EUR 

Asso luto 

2D 

OD 

4D 

Pagina-0 

25 

05 

45 

immediato 

29 

09 

49 

Assoluto.X 

3D 

1D 

5D 

Assoluto,Y 

39 

19 

59 

<IND r X) 

21 

01 

41 

(IND),Y 

31 

11 

51 

Paqina-0,X 

Pag i na--0, Y 

Relativo 

Indiretto 

35 

15 

55 


Tabella 2. Tabella codici istruzioni-indirizzamento. 


bit 7 di una cella di memoria, è suffi¬ 
ciente eseguire un AND con 
01111111. 

Anche il BASIC dispone di questa 
operazione, che viene effettuata con 
numeri in notazione decimale. Per 
conoscere il risultato, però, dobbia¬ 
mo (così come fa il computer) tras¬ 
formare i numeri in binario, calcola¬ 
re il risultato e ritrasformarli in deci¬ 
male. 

Potete provare sul vostro 64 ad azze¬ 
rare il bit 5 della locazione $01, per 
mettere in movimento il motore del 
registratore. 

Poiché il motore è in moto quando il 
bit 5 è attivato, bisogna azzerare tale 
bit. 

Basterà digitare: 

POKE 1, PEEK (1) AND 223. 
(llOlilll = 223) 

o in linguaggio macchina: 

LDA $01 
AND &DF 
STA $01 


OR 

L’operazione OR, invece, è carat¬ 


terizzata dalla tabella le. 

Ci troviamo in una situazione oppo¬ 
sta a quella dell’AND. Qui è suffi¬ 
ciente che uno dei due operandi sia 
uguale a 1 perché il risultato sia uno. 
Se entrambi sono uno, lo è anche il 
risultato, ma non vi è alcun riporto. 
La traduzione letterale di OR è O. 

Il risultato sarà uno quando un 
operando o l’altro sono uguali ad 
uno. 

Ecco alcuni esempi: 

11110000 OR 
00010010 = 

11110010 

illuni or 
00000000 = 
illuni 

Come si vede, un bit uguale a zero 
lascia invariato il bit dell'altro ope¬ 
rando nel risultato. Mentre un bit 
uguale ad uno, indipendentemente 
dall’altro operando, pone ad uno il 
bit del risultato. 

L’uso più comune di questa opera¬ 
zione è quindi quello di settare parti¬ 
colari bit. Se vogliamo ad esempio 
rimettere ad uno il bit 5 di $01, per 


fermare il motore del nastro digite¬ 
remo in BASIC: 

POKE 1, PEEK (1) OR 32 
(00100000 = 32) 

o in linguaggio macchina: 

LDA $01 
ORA &20 
STA $01 


Exclusive OR 

La tabella di questa nuova opera¬ 
zione, abbreviata in EOR, è molto 
simile a quella dell’OR. Unica diffe¬ 
renza è che con entrambi gli operan¬ 
di uguali ad uno il risultato è zero 
(sempre senza riporto). Gli usi sono 
invece completamente differenti. 
Mentre con le altre due operazioni 
potevamo settare o azzerare parti¬ 
colari bit, con l’istruzione EOR pos¬ 
siamo invertire i bit che vogliamo. 
Cioè, se un bit è zero, diventerà uno 
e viceversa. 

Infatti, guardando la tabella Id si 
vede che se un operatore è uguale a 
zero, il risultato è uguale al secondo. 
Se invece il primo è uguale ad uno, il 
risultato sarà l’opposto del primo, 
ossia il primo negato. 

Esempio: 

00001111 EOR 
10101010 = 

10100101 

00000000 EOR 
10101010 = 

10101010 

mimi eor 
10101010 = 

01010101 

L’applicazione più interessante si ha 
quando un operatore è uguale a 
&FF (11111111). In questo caso il 
risultato è uguale all’altro operando 
negato. 

Nella tabella 2 troverete gli indiriz¬ 
zamenti. ■ 
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Quali sono i pacchetti e i libri di 
informatica più venduti in Italia? 

È proprio vero che tutti vogliono 
un home computer? 

Lotus 1-2-3 è solo una moda? 

Apple II C è veramente 
compatibile con II E? 

Chi copia il software? 

Com e far e busin e s s c o n il soft ware? 



A QUESTE 
E MOLTE ALTRE 
DOMANDE RISPONDE 


SoftDealer 




Il primo mensile italiano per chi vende home e personal 
computer, software, libri e accessori di informatica. 
Uno strumento utilissimo per chiunque si interessi di 
personal e home computer. Su Soft Dealer, il nuovo 
mensile della PROGRAM EDITRICE, inviato solo in 
abbonamento, troverete tutte le notizie più utili, recen¬ 
sioni, test, prove di software, articoli di marketing, clas¬ 
sifiche dei migliori programmi esistenti sul mercato. 


UN ABBONAMENTO A 


SoftDealer 


È UN INVESTIMENTO PER IL FUTURO. APPROFITTA 
DELL'ECCEZIONALE OFFERTA DI LANCIO. 
RICEVERAI GRATIS I PRIMI TRE NUMERI DEL 1984. 


Per abbonarsi basterà compilare il modulo pubblicato 
qui sotto, allegando assegno di L. 25.000, e inviarlo a 
PROGRAM EDITRICE S.r.l. Via Melchiorre Gioia, 114 - 
20125 Milano. 


SOFT DEALER è un’idea 


□ 


Uffici Tecnici e Commerciali: 
20125 Milano - Via M. Gioia. 114 
Tel. (02) 603415-680851 

Desidero sottoscrivere un abbonamento a 10 nume¬ 
ri (L. 25.000) alla rivista SOFT DEALER, da gen- • 
naio a dicembre 1985. 

In questo caso mi saranno inviati in omaggio i 
primi tre numeri del 1984. 


PROGRAM 

editrice 


□ Allego assegno di L. 25.000 intestato a PROGRAM 
EDITRICE 


n°.Banca. 

□ Ho effettuato pagamento tramite vaglia postale. 


NOME .... 
COGNOME 
AZIENDA 

























































come 


uarda un po’ 
si insegna la musica 
al personal 


N egli ultimi anni abbiamo 
assistito ad una continua 
convergenza tra sistemi di 
elaborazione dati (microprocessori, 
personal computer) e strumenti mu¬ 
sicali elettronici. Nelle tastiere, ad 
esempio, si fa largo uso della tecnica 
digitale e ciò porta a realizzare inter¬ 
facce guidate dall’elaboratore, per 
ampliare le limitate capacità del tra¬ 
dizionale sistema analogico. A que¬ 
sto proposito è stato recentemente 
concordato uno standard, il proto¬ 
collo digitale MIDI (Musical Instru- 
ment Digital Interface) che consente 
di collegare, tramite un semplice ca¬ 
vo, tastiere di costruttori diversi rea¬ 
lizzando così un unico sistema gui¬ 
dato da computer per la sintesi so¬ 
nora. 

La scatola nera 

Il MIDI Computer Interface della 
SIEL consente di inserire nella rete 
locale di comunicazione MIDI an¬ 
che un elaboratore, trasformando in 
forma parallela le informazioni se¬ 
riali. L’interfaccia realizzata dalla 
SIEL permette di collegare strumen¬ 
ti musicali MIDI compatibili e per¬ 
sonal computer basati su CPU mol¬ 
to diffuse quali Z80, 6502 e 6510 
montate da diverse macchine assai 
popolari, quali Apple II, Commo¬ 
dore 64, Sinclair ZX81 e Spectrum. 
Il MIDI Computer Interface rende 
infatti compatibili i sistemi di tra¬ 
smissione dati dei succitati personal, 
che li inviano in forma parallela, con 
gli strumenti MIDI compatibili, che 
trattano dati digitali in forma seria¬ 
le. Si tratta quindi di un dispositivo 
di conversione tra dati digitali invia¬ 
ti in forma non omogenea che non 
contiene software operativo auto¬ 
nomo: l’interfaccia deve perciò esse¬ 
re sempre utilizzata in abbinamento 
con uno dei personal testé elencati. 
Per poter poi sfruttare a pieno le 


potenzialità del MIDI Computer In¬ 
terface, occorre che il personal sia 
dotato di apposito pacchetto appli¬ 
cativo MIDI compatibile. 

Pochi cavi, ma buoni 

Per quanto riguarda i collega- 
menti, occorre dire che la SIEL for¬ 
nisce un connettore bivalente che 
ben si adatta allo Spectrum e al 
Commodore 64. L’interfaccia pre¬ 
vede i seguenti collegamenti: 

• MIDI IN, rivolto ad uno strumen¬ 
to monitor per l’immissione di even¬ 
tuali dati MIDI; 

• MIDI OUT, 3 uscite per periferi¬ 
che musicali (sintetizzatori o expan- 
der); 

• MIDI THRU, per inviare ad un 
eventuale altro strumento il segnale 
sorgente proveniente dal synth. mo¬ 
nitor. 

Resta comunque sempre possibile 
collegare fino a 16 strumenti, utiliz¬ 
zando i connettori MIDI degli stes¬ 
si. 

Come si fa? 

Il collegamento più semplice si re¬ 
alizza tra un sintetizzatore MIDI ed 
un personal, via MIDI Computer 
Interface: è necessario collegare con 
gli appositi cavi le uscite MIDI OUT 
e MIDI IN dello strumento rispetti¬ 
vamente con il MIDI IN e il MIDI 
OUT dell’interfaccia, nonché con¬ 
nettere il personal tramite l’uscite 
generalmente riservata alla stam¬ 
pante. A questo punto il gioco è fat¬ 
to, meglio comunque avere a dispo¬ 
sizione un pacchetto che guidi all’u¬ 
so dell’interfaccia, soprattutto se ci 
si spinge su terreni più accidentati. E 
infatti possibile lanciarsi in uno sfre¬ 
nato collegamento tra sintetizzatore 
e personal, condito dall’uso di una o 
più periferiche musicali (altri sinte¬ 
tizzatori o expander MIDI). Questa 


complessa architettura consente di 
avere uno strumento “supervisore” 
(che funge da direttore d’orchestra o 
come programmatore di sequenze 
per gli altri) e diversi esecutori di 
parti individuali con i propri timbri 
preprogrammati secondo la codifica 
MIDI dei canali cui sono stati asse¬ 
gnati. In questo caso occorre ripete¬ 
re le azioni precedenti per il sintetiz¬ 
zatore, il personal e il MIDI Com¬ 
puter Interface, mentre il MIDI IN 
della prima periferica musicale va 
inserito in uno degli altri canali MI¬ 
DI OUT presenti sull’interfaccia. La 
seconda periferica, e via via tutte le 
altre, si collega al MIDI THRU del¬ 
la precedente utilizzando il MIDI 
IN: il massimo consentito dall’indi- 
rizzamento individuale previsto è di 
16 strumenti collegati come periferi¬ 
che. 

Restando in tema di collegamenti, 
l’ultima caratteristica saliente del 
MIDI Computer Interface è la pre¬ 
senza di IN CONTROL, un’uscita 
che permette di connettere unità rit¬ 
miche esterne sincronizzate secondo 
lo standard MIDI oppure appositi 
pedali per il controllo esterno di fun¬ 
zioni specifiche, guidate da appositi 
programmi pronti. 

Protocollo e regole di trasmissione 

Il MIDI si basa sulla codifica nu¬ 
merica di tutte le operazioni esegui¬ 
bili su una tastiera. Per tradurre in 
cifre una partitura musicale si asso¬ 
cia un numero ad ogni tasto e si 
rilevano istantaneamente i parame¬ 
tri dinamici, legati all’esecuzione. È 
possibile quindi esprimere numeri¬ 
camente anche il timbro dello stru¬ 
mento, utilizzando il valore indicato 
dai potenziometri. ■ 

S.I.E.L. S.p.A. Zona Industriale 

63030 Acquaviva Picena (AP) 
Tel. 0735-60744 
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SEGRETI DEL PERSONAL 


COMMODORE VIC 20 - C 64 

Una raffica di trucchi 


di Alessandro Guida 

Questo mese una serie di trucchi, che si possono 
rivelare molto utili nella programmazione e per risol¬ 
vere problemi che da tempo vi assillano. 

Molti dei suggerimenti che leggerete vengono dall’e¬ 
sperienza di altri lettori come voi. Perciò non siate 
timidi, ma inviateci le vostre idee, così che questa 
rubrica possa essere un punto di riferimento per tutti 
gli utenti Commodore in cerca di spunti. 


Nomi di variabili proibite 

Come certamente saprete, nell’assegnare i nomi 
alle variabili bisogna stare attenti a non includere 
parole riservate ai comandi BASIC. Ad esempio, le 
seguenti due linee generano il messaggio “SYNTAX 
ERROR” poiché contengono le parole chiave DATA 
e GO: 

10 PRINT DATA 

20 LATO = SIN (ANGOLO) ★ RAGGIO 

Se non volete rinunciare ad utilizzare dei nomi com¬ 
plessi per le variabili, per aumentare la comprensibi¬ 
lità del listato, vi basta seguire questo trucco. 

Tra due delle lettere che fanno parte della parola 
chiave inserite il carattere SHIFT + J. 

Nella fase di LIST questo carattere scomparirà, ma la 
sua presenza impedirà al computer, durante l’esecu¬ 
zione del programma, di riconoscere la parola chia¬ 
ve. 

Se indichiamo per comodità con [ J ] il carattere 
ottenuto con i tasti SHIFT + J avremo: 

10 PRINT DI [ J ] ATA 

20 LATO = SIN (AN [ J ] GOLO) ★ RAGGIO 

Altri caratteri insieme allo SHIFT possono andare 
bene (K, Z, X), purché non facciano parte di alcuna 


abbreviazione del BASIC V2. 

Ricor date che tale m odifica a l nome della variabil e va 

fatta tutte le volte che essa compare. 

Idea di Vincenzo lorio - Salerno 


COMPARE nella cartuccia VICMON 

Nella cartuccia VICMON (monitor di linguaggio 
macchina per il VIC) vi è un comando “segreto” che 
non è riportato nel manuale d’uso. 

Si tratta della istruzione COMPARE, che permette di 
confrontare due blocchi di memoria. Come risultato 
dell’operazione sullo schermo compaiono tutti gli 
indirizzi che non collimano. 

La sintassi del comando è: 

.C (inizio), (Fine), (inizio 2) 

I parametri indicati sono l’inizio e la fine del primo 
blocco di dati e l’inizio del secondo. Naturalmente, i 
due blocchi sono considerati della stessa lunghezza. 


Input senza punto interrogativo 

È possibile realizzare un input da tastiera senza che 
il computer mostri il classico punto interrogativo. 
Basta aprire un file di input verso la tastiera (numero 
di periferica = 0). Si ha perciò: 

10 OPEN 1,0 

20 PRINT “DIGITA UNA LETTERA”; : 

INPUT1, A$ 

30 CLOSE1 


Semplice simulazione del PRINT AT 

Se nei vostri programmi sentite la mancanza di una 
istruzione per indirizzare il cursore in un punto qual¬ 
siasi dello schermo, ma non volete cimentarvi con il 
linguaggio macchina, ecco una routine che vi sarà 
molto utile: 

10 R = 22 : C = 21 : REM per il C 64 R = 24 e C = 39 
20 DIM X$ (C), Y$ (R) : H$ = “(HOME)” 

30 FOR I = 0 TO C : X$ = X$ + “(CRSR RIGHT)” : 
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di trucchi 


X$ (I) = X$ : NEXT I 

40 FOR I = 0 TO R : Y$ = Y$ + “(CRSR DOWN)” : 
Y$ (I) - Y $ : NEXT I - 

Questa routine va inserita all’inizio di un programma 
e il suo uso è estremamente semplice. Ecco un’esem¬ 
pio: 

150 PRINT H$X$ (10) Y$ (12) “PERSONAL 
SOFTWARE” 

Quindi, per posizionare il cursore alle coordinate x, y 
è sufficiente dare il seguente comando: 

PRINT H$X$ (x) Y$ (y); 

Idee di anonimo (ricordate di mettere il vostro nome sul 
foglio e non sulla busta, che poi va persa) 


I suffissi nei file su disco 

Quando aprite dei file su disco vi sono alcune 
condizioni in cui potete fare a meno di specificare il 
tipo di file e se è in scrittura o lettura. 

I file aperti sul canale 1 vanno automaticamente in 
scrittura. Ad esempio l’istruzione: 

OPEN 1, 8, 1, “PIPPO” 

apre il file PIPPO di tipo PRG per scrittura. 

Per aprire un file in lettura è sufficiente utilizzare un 
canale da 2 a 14. Ad esempio con: 

OPEN 2, 8, 2, “TESTO” 

si apre il file TESTO in lettura; l’informazione sul 
tipo del file (PRG, SEQ, USR, REL) viene presa dal 
disco. Nel caso di file relativo viene anche letta la 
lunghezza dei record, sempre dal disco (naturalmente 
il file deve essere stato già creato). 


Micro Autostart 

Per i superpigri che rimpiangono di non poter più 
utilizzare il tasto RUN (SFIIFT + STOP) col disco, 
come facevano col nastro, ecco una soluzione. 
Digitate normalmente il LOAD, più il nome del pro¬ 


gramma e il virgola 8, ma anziché premere il RE¬ 
TURN battete un due punti e premete i tasti SHIFT 
-F5TGP. Risparmiare te-te-Fatiea-dfseri vere-RU N-ff)r 


Simboli speciali 

Tutti voi conoscerete i simboli speciali che appaio¬ 
no in reverse sullo schermo (HOME, CLR, i vari 
colori, ecc.) dopo aver aperto le virgolette e premuti i 
tasti corrispondenti. 

Oltre quelli normalmente visibili ve ne sono degli 
altri, che possono essere creati come segue: 

a) aprite gli apici e subito chiudeteli; 

b) tornate indietro con il tasto delete, quindi premete 
i tasti CTRL + 9 (RVS-ON); 

c) ora digitate la lettera corrispondente al comando 
che volete ottenere; 

d) disabilitate il reverse con CTRL +0 e premete altre 
due volte gli apici; 

e) cancellate questi ultimi con il tasto delete. 

Ora il carattere appare in reverse, tra due virgolette, 
pronto ad essere eseguito durante l’operazione di 
print che lo riguarda. 

Tra i caratteri che messi in reverse danno i risultati 
più interessanti vi sono: 

SHIFT + M riporta il cursore a capo della linea 
successiva. E utile per eliminare dei print a vuoto, 
necessari per riportare a capo il cursore e scendere 
alle linee seguenti; 

N passa al set maiuscolo minuscolo; 

SHIFT + N passa al set maiuscolo grafico; 

H disabilita tasti Commodore + SHIFT; 

I abilita tasti Commodore + SHIFT. 

Idee di Davide Curioni - Sedriano 


Doppia spaziatura sulla stampante 

Se volete che la stampante lasci sempre una linea 
vuota, è sufficiente aprire un file con numero maggio¬ 
re di 127. 

Ad esempio, per avere un listato a doppia spaziatura 
verticale daremo: 

OPEN 130, 4: CMD 130: LIST 
PRINT # 130: CLOSE 130 
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SHARP PC 1251 _ 

I byte di controllo del display 


di Mauro Lenzi 

— talvolta scorsa abbiamoncoTnptiJTO uno dèi passi 
più importanti per svelare i segreti dello Sharp PC- 
1251: abbiamo trovato gli indirizzi di partenza di 
tutte le subroutine in linguaggio macchina corrispon¬ 
denti alle istruzioni date in BASIC. 

Ora sfrutteremo immediatamente queste conoscenze 
per scoprire come vengono gestite dal computer alcu¬ 
ne funzioni del display e, più precisamente, come è 
possibile controllare le scritte indicanti il “mode” in 
cui stiamo operando, cioè BUSY P DEF DEGRAD 
SHIFT E. 

Che metodo possiamo adottare per raggiungere que¬ 
sto scopo? 

Naturalmente, il problema non è semplice e per risol¬ 
verlo ci vuole moltissima pazienza. Prima di trovare 
la strada giusta ho fatto molti tentativi, che per ragio¬ 
ni di brevità ometterò, finché non ho trovato la solu¬ 
zione usando un metodo assai empirico e poco ele¬ 
gante, ma che si è rivelato efficace. 

Mi sono chiesto: quali sono le subroutine più utili per 
risolvere il problema? 

La risposta è semplice e immediata: si tratta delle 
tre subroutine che definiscono le unità di misura 
angolari, cioè DEG, RAD e GRAD. 

Infatti, all’interno di tutte e tre queste subroutine 
deve trovarsi un comando che causi l’accensione, 
rispettivamente, delle scritte DEG, RAD o GRAD. 
Possiamo poi fare un’altra interessante osservazione: 
per il modo in cui sono state poste nel display queste 
scritte possono essere scomposte come DE G RAD. 
Con questo sistema il computer per visualizzare la 
stringa DEG accende sia DE che G, per visualizzare 
RAD accende solo quest’ultimo ed infine per visua¬ 
lizzare GRAD usa la G e RAD. 

Possiamo quindi ipotizzare che tutte e tre queste 
subroutine agiscano su degli indirizzi di memoria 
comuni, il cui valore influenzi le scritte del display. 
Ovviamente, questa non è l’unica ipotesi possibile, 
tuttavia, basandosi sul funzionamento analogo di 
molti altri computer, ha buone possibilità di essere 
quella giusta, come verificheremo fra breve. 
Andiamo quindi a confrontare i numeri corrispon¬ 
denti alle tre subroutine per vedere se vi troviamo 
delle analogie. Nella figura I sono stati trascritti i 
suddetti numeri, corrispondenti ai contenuti degli 
indirizzi di memoria a partire da 21117, dove inizia la 
subroutine Degree, da 22668, dove inizia lasubrouti- 


I numeri corrispondenti alla subroutine DEGREE 

16 248 60 213 12 17 61 212 251 55 14996239 15097 32 120 
90 97 55 147 96 159 120 89 234 

I numeri corrispondenti alla subroutine RADlAN 

16 248 60 212 243 17 61 2134 5514997 3255 150974 55 
150 96 251 55 36 5 103 29 56 21 

— I n u m e r i eorr is ponden tr-alla-sub rout t m^GR Al) 

16 248 60 212 243 213 4 17 61 213 4 55 36 103 21 56 107 
150 98 2 40 106 103 18 120 104 142 5 40 


Figura 1. I numeri corrispondenti ad una parte delle 
subroutine DEGREE, RADlAN e GRAD; fino a questo 
momento noi conosciamo solo l'indirizzo iniziale di 
queste subroutine e perciò, non conoscendone né la 
lunghezza né l’indirizzo finale, questi numeri probabil¬ 
mente rappresentano soltanto la parte iniziale delle 
suddette subroutine. 


ne Radian ed a partire da 21362, che è l’inizio della 
subroutine Grad. Dobbiamo però ricordarci che non 
sappiamo quanto siano lunghe queste subroutine e 
quindi quei numeri probabilmente non ne rappresen¬ 
tano che una minima parte. 

Dal confronto balza immediatamente agli occhi che 
esse sono molto simili e presentano delle sequenze in 
comune. 

Per prima cosa iniziano tutte in maniera molto 
simile: abbiamo infatti, rispettivamente, le sequenze 
16 248 60 213, 16 248 60 214 e 16 248 60215; seguono 
a poca distanza le terne 1761 212, 1761 213 e 1761 
214. 

Si potrebbero trovare molte altre interessantissime 
similitudini, ma per il momento possiamo limitarci a 
queste. 

Un’ultima considerazione che dobbiamo fare è che 
gli indirizzi di memoria vengono scritti, in linguaggio 
macchina, molto probabilmente “dritti”, cioè prima 
il byte alto e poi il byte basso. Abbiamo infatti sco¬ 
perto la volta scorsa che nel buffer delle istruzioni 
sono riportati in questo modo ed è perciò logico 
aspettarsi che anche qui sia seguito lo stesso metodo. 
Iniziamo la nostra paziente ricerca degli indirizzi di 
controllo del display dall’inizio: il primo byte, il nu¬ 
mero 16, ovviamente sarà un comando del linguaggio 
macchina. 

Possiamo però supporre che 248 e 60 siano due nu¬ 
meri corrispondenti ad uno degli indirizzi che stiamo 
cercando; possiamo fare una verifica modificando 
l’indirizzo: se la supposizione è esatta, le scritte del 
display verrebbero in qualche modo influenzate. Pro¬ 
viamo perciò a digitare: 
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POKE 248 ★ 256 + 60, 255 

Siamo davvero fortunati! Infatti, sul display si sono 
accese contemporaneamente le scritte P DEF DEG, 
che stanno a significare che abbiamo centrato il ber¬ 
saglio al primo colpo. In caso, invece, non si fosse 
verificato alcun cambiamento sul display avremmo 
dovuto piovaie con i numeri successivi, consideran¬ 
do come indirizzi le coppie 60 212, 212 243 e così via. 
Adesso si tratta di capire come possiamo controllare 
le varie scritte a nostro piacere. Proviamo a immette¬ 
re nell’indirizzo di memoria che abbiamo scoperto il 
numero 63548 (= 248 ★ 256 + 60) e successivamente 
tutti i numeri a partire dallo 0. 

I risultati ottenuti possono apparire a prima vista 
incomprensibili: infatti, a seconda del numero che 
inseriamo si accendono una o più scritte fra le se¬ 
guenti, P DEF DE G, senza una logica comprensibi¬ 
le. 



Numeri 
in base dieci 

Numeri 

N. in base due 

Stringhe 

visualizzate sul display 

0 

0 

0 

0 

0 





1 

0 

0 

0 

1 




DEF 

2 

0 

0 

1 

0 



P 


3 

0 
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Figura 2. Immettendo un numero compreso fra 0 e 15 
all'indirizzo di memoria 65548 il display viene influen¬ 
zato come in figura. Con i numeri successivi al 15 la 
sequenza viene ripetuta uguale. 

Si vede inoltre che dopo il numero quindici vi è una 
ripetizione regolare della sequenza, così il numero 
zero ed il sedici danno lo stesso risultato. 

La spiegazione del funzionamento è in realtà molto 
semplice e ci viene dai numeri binari. Consideriamo 
le suddette quattro stringhe esattamente in questo 
ordine: 

DE G P DEF 

Adesso attribuiamo un bit ad ogni stringa, nello 
stesso ordine, e supponiamo che i bit corrispondenti 


alle parole che vogliamo accendere valgano uno, 
mentre quelli corrispondenti alle parole che debbono 
restare spente valgano zero. Supponiamo, per esem¬ 
pio, di volere accendere solo la scritta DEG. Questo 
significa che dovremo mettere un uno al posto di DE 
ed un uno al posto di G, mentre i bit di P e DEF 
saranno posti a zero. Il numero che otteniamo è così 1 

I 0 0, che corrisponde, in base dieci, al numero 12. 
Inserendo il numero così ottenuto neH’indirizzo che 
abbiamo scoperto, digitando: 

POKE 63548, 12 

si accenderà effettivamente la scritta DEG. 

Le nostre ricerche però non sono ancora terminate; 
infatti dobbiamo trovare un indirizzo corrispondente 
alle altre scritte del display: BUSY RAD SHIFT E. 

Per trovare questo indirizzo, visto che oggi è la 
nostra giornata fortunata, possiamo supporre che sia 
vicino a quello che abbiamo trovato, per esempio che 
lo preceda oppure che sia il successivo. Digitando: 

POKE 63547, 255 

non succede niente. Proviamo a vedere se è il seguen¬ 
te, scrivendo: 

POKE 63549, 255 

Finalmente si accendono tutte le scritte che stavamo 
cercando! 

II metodo per gestirle è analogo al precedente, consi¬ 
derandole nel seguente ordine: 
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Figura 3. Anche l’indirizzo di memoria 63549 contri¬ 
buisce a gestire le scritte sul display, seguendo il siste¬ 
ma illustrato nel testo. 
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E RAD SHIFT BUSY 

Volendo, ad esempio, ottenere l’accensione delle 
scritte E e BUSY inseriremo in questo indirizzo di 
memoria il numero decimale corrispondente a 1 0 0 1, 
cioè il numero nove. 

A questo punto possiamo accendere tutte le scritte 
del display come ci pare, indipendentement e dal 

“mode” in cui la macchina si trova. 

Possiamo ad esempio far comparire la scritta BUSY, 
mentre in realtà il computer non sta eseguendo alcun 
programma, oppure visualizzare la scritta DEG, 
mentre il computer è predisposto per fare i conti in 
radianti! 

Un’ultima cosa molto interessante è il funziona¬ 
mento del tasto SHIFT. 

Infatti, accendendo questa scritta si ottiene effettiva¬ 
mente lo stesso risultato di quando si preme il tasto 
corrispondente. 


ZX SPECTRUM _ 

Routine in linguaggio macchina 
per gestione video 

di Marcello Spero 

Il lettore G. Formaggio ci ha inviato questa breve 
routine in linguaggio macchina, che riprende un tema 
trattato da Angelo Motta in “ZX81 Croupier” e da 
Carlo Cappelli in “Routine in linguaggio macchina 
per ZX81”. Si tratta del trasferimento veloce dell’im¬ 
magine video in zona di memoria diversa dal display 
file, allo scopo di ottenere animazioni veloci o im¬ 
provvisi cambi di immagine. 


HEMORZZRZI0NE 

30000 

_ 

83 

30001 

S 

0 

30002 

a 

64 

30003 

ss 

17 

30004 

— 

30 

30005 

— 

195 

30006 
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30007 

— 

0 

30006 


27 

30009 


237 

30010 

— 

175 

30811 

x 

201 


Figura 1. Routine in linguaggio macchina per memo¬ 
rizzare l'immagine video in RAM a partire dall'indiriz¬ 
zo 50000 (80 + 195 x 256). 
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Figura 2. Routine per ripristinare l'immagine video. 


Questa volta la routine è per ZX Spectrum, ma il 
funzionamento è completamente analogo; l’unica 
differenza è che non è possibile limitare l’effetto a 
parte del video semplicemente cambiando il valore 
contenuto nel registro BC. 

La ragione di questo risiede nella particolare organiz¬ 
zazione del display file, spiegata nel manuale del 
calcolatore. 

La routine è divisa in due parti, una per la memoriz¬ 
zazione (figura 1) ed una per il ripristino del video 
(figura 2). In entrambe viene usata l’istruzione 
LDIR, di cui si è già parlato nell’articolo di Motta. 
L’immagine occupa 6912 byte, viene memorizzata a 
partire dall’indirizzo contenuto in DE (figura 1) e 
richiamata a partire dall’indirizzo contenuto in HL 
(figura 2). Utilizzando i codici delle figure tale indi¬ 
rizzo è 50000 (dee.), ma può essere modificato a 
piacere, consentendo anche di memorizzare diverse 
immagini in diverse zone di memoria. 

Occorre calcolare separatamente il valore per il regi¬ 
stro D ed il registro E, così: 


1© CEERR 29999 

£0 PRINT ‘©uando hai finito di 
introdurre i codici usa STOP" 

30 FDR n =002:00 TO 30100 
4.0 INPUT "POKSi": ... b 

50 POKE n,b: PRINT n,FEEK n 
60 NJEXT n 


Listato 1. Caricatore per la routine (figura 1 + figura 

2 ). 


10 FC'R n =0 TO 21 

20 PRINT INK RND*S; PRPER RND* 
ss; • fiECi>EFGP;iL.v.\'OPORSTUUZ1234.567& 
9At" 

30 NEXT N 

4-0 LPRINT USR 38080 
50 Ct_S 

6C PRINT "Premi un tasto per r 
ive de re t immasine." 

70 PRUSE 0 
8© i-PRINT UGR 30012 
90 PfiUSE 250: RUN 


Listato 2. Programma dimostrativo di memorizzazio¬ 
ne e richiamo immagine. 
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SEGRETI DEL PERSONAL 


D = INT n/256 
E = n — 256 x D 

dove n è l’indirizzo desiderato. 

Si noti che il valore di DE (figura 1) deve essere 
uguale al valore di HL (figura 2). 

Vengono indicati anche un programma (listato l)per 
ih'caricamento"delhrroutine (figura~L-b figuni~2Tex± 

un programma dimostrativo (listato 3). 


Listato 1. Il programma BASIC. 


100 REM PROVA FILE 
110 REM ********** 

120 CALL CL.EAR 

130 OPEN #1:"CSI",SEGUENTIAL,OUTPUT,INTE 
RNAL,FI XED 

140 RECI*="REC0RD N. 1" 


1 5 0 P RINT #1 ; RECI * - 

160 CLOSE #1 
170 PRINT 

180 PRINT "NUMERO TOTALE DEI RECORD = 1" 
190 PRINT 

200 PRINT "VUOI SCRIVERE ALTRI RECORD?" 
210 INPUT "(Y/N) ":R* 

220 IF R*="Y" THEN 260 
230 IF R*="N" THEN 250 
240 BOTO 210 
250 END 
260 PRINT 

270 PRINT "PRIMA LEGGIAMO I RECORD" 

280 PRINT "PRECEDENTI." 

290 INPUT "GUANTI NE DEVO LEGGERE? ":N 
300 TOT=N 

310 OPEN #lr. "CSI", SEGUENTIAL, INPUT , INTE 
RNAL,FIXED 
320 PRINT 

330 PRINT "RECORD PRECEDENTI" 

340 FOR J=1 TO N 
350 INPUT #1 : REC* 

360 PRINT REC* 

370 NEXT J 
380 CLOSE #1 
390 PRINT 

400 PRINT "ORA AGGIUNGI ALTRI RECORD" 

410 PRINT "NON RIAVVOLGERE IL NASTRO!" 
420 PRINT "PER FINIRE SCRIVI FINE" 

430 OPEN #1:"CSI",SEGUENTIAL,OUTPUT, INTE 
RNAL,FIXED 
440 PRINT 

450 PRINT "SCRIVI UN RECORD" 

460 INPUT REC* 

470 IF REC*=”FINE" THEN-510 
480 PRINT #1: REC* 

490 T0T=T0T+1 
500 BOTO 440 
510 CLOSE #1 
520 PRINT 

530 PRINT "NUMERO TOTALE DEI RECORD:" 

540 PRINT TOT 
550 PRINT 
560 GOTO 200 


TEXAS TI 99/4A 


Apertura di un file nel modo 
APPEND 


di Sergio Borsani 

Uno dei problemi che affliggono l’utilizzatore di 
un sistema di memoria a cassette è costituito dalle 
limitazioni nell’uso dei file. Sono infatti consentiti 
soltanto file sequenziali e se si desidera simulare un 
accesso diretto ai record bisogna caricare nella me¬ 
moria centrale l’intero file, che ovviamente dovrà 
avere un’ampiezza proporzionata ai Kbyte disponi¬ 
bili. 

Analoghe considerazioni si possono fare quando si 
deve modificare un file sequenziale o quando si deve 
ampliarlo, aggiungendo nuovi record a quelli già 
esistenti. 

Se si dispone di due registratori, uno potrà essere 
utilizzato per leggere il vecchio file e l’altro per scrive¬ 
re il file aggiornato. 

Disponendo di un solo registratore si caricherà in 
memoria l’intero file, si apporteranno ad esso le mo¬ 
difiche e si passerà quindi alla sua registrazione. 
C’è un’eccezione a questa sequenza di operazioni 
qualora lo scopo sia semplicemente l’aggiunta di 
nuovi record. 

Le caratteristiche di apertura di un file con l’uso di un 
registratore sono riportate nel manuale, sotto la voce 
OPEN, a pag. 120. 

Da esse si desume che gli unici modi consentiti sono 
quelli in INPUT ed in OUTPUT; gli altri, UPDATE e 
APPEND, sono disponibili solo con il sistema a di¬ 
schi. 

In realtà, il modo APPEND può essere ottenuto 
con un breve programma scritto in TI BASIC; in 
altre parole è possibile aggiungere nuovi record alla 
fine di un file senza che si verifichino inconvenienti in 


fase di lettura. Il trucco, se vogliamo chiamarlo così, 
è abbastanza banale. Si tratta di aprire il file in input e 
di leggere i record preesistenti conoscendo esatta¬ 
mente il loro numero, senza tuttavia mantenerli in 
memoria, quindi si chiude il file e si riapre in output 
per la registrazione di ulteriori record. Una variabile 
dovrà fungere da contatore per tenere aggiornato il 
numero totale dei record scritti. 

Tale numero andrà segnato sull’etichetta della cas¬ 
setta, assieme a quello indicato dal tape counter che 
segna l’inizio del file. 
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Bfl.SE, 

SOFTWARE HOUSE - Casella Postale 4 
13055 - Occhieppo Inferiore (VC) 

Tel. 015/592730 

SOFTWARE PER 

COMMODORE 64 

(disco o cassetta) 

NOVITÀ 1 


COMBINATORE TELEFONICO - com¬ 
pleto di cavi, linee adatte per collega 
mento alla linea e al Commodore 64, op¬ 
pure VIC 20 (16 Kbyte). Fornito di soft¬ 
ware per disco o cassetta permette la 
ripetizione automatica del numero. Com¬ 
pleto di archivio, numeri e indirizzi, con¬ 
sente di chiamare qualunque utente in 
memoria dato il nome o il codice. Non 
necessita di alcuna modifica all'impianto. 


Specificare se disco o cassetta. L. 75.000 

CODICE 3 -Gioco di simulazione medica L. 30.000 
ALTO MEDIOEVO - Simulazione eco¬ 
nomica L. 30.000 

ATOMO - Simulazione centrale atomica L. 30.000 
BIORITMI + HIDDEN CODE L. 30.000 

TORRE DI HANOI + OTHELLO L 30.000 

BLACK JACK L. 30.000 

DATA BASE SORG. - Sorgente per ge¬ 
stione archivi (solo dischetto) L. 50.000 


SOFTWARE PER TI 99/4A (solo cassetta) 


TILANDIA - Simulazione economica L. 25.000 

SUPERBOWL - Simulazione football 
americano L. 25.000 

SPACE TI/99 - In caccia fra le stelle L. 25.000 

POKER + ROULETTE L 25.000 

LABIRINTO 3-D L. 25.000 

PYRAMID - Adventure nella piramide 

maledetta L. 25.000 

MEM L. 25.000 

CONTABILITA' CASALINGA (pratica 

gestione) L. 50.000 

SOFTWARE PER ATARI (solo cassetta) 

ALTO MEDIOEVO - Simulazione eco¬ 
nomica L. 25.000 


A vostra disposizione per software su misura per: 

COMMODORE VIC 20 OLIVETTI M 20 

COMMODORE C-64 IBM PC 

OLIVETTI MIO IBM XT 

1 Spedire in busta chiusa a: 

BA.SE s.n.c. - Casella Postale 4 - 13055 Occhieppo Ini. (VC) 

I Nome e Cognome- 

Indirizzo--- 

Cap_Città_Provincia- 

VIC 200 C64D IBM PC □ MIOO M20O Alarla TexasO 

Ordino n° _ □ Disco □ Cassetta _ 

I Ordino n°_D Disco □ Cassetta - 

Per un totale di Lire ___ 

I Pagamento □ Allegato assegno non trast. sped celere 
□ Contro assegno + spese postali 

il 22 


Apertura di un File 
nel modo APPEND 

Il vantaggio di tutto ciò consiste nel poter trattare file 
molto estesi, in quanto nella memoria centrale non 
viene caricato che un record alla volta. 

Esaminiamo brevemente la routine ed il modo di 
utilizzarla. 

Le linee 130-160 scrivono un unico record per inizia- 
lizzare il file. Per aggiungere nuovi record bisogna 
rispondere affermativamente alla richiesta di linea 
200 ed indicare il numero di record già scritti. Inizial¬ 
mente tale numero è 1, poiché è presente, un unico 
record consistente nella stringa “RECORD N. 1”. 
L’istruzione 310 apre il file nel modo INPUT e provo¬ 
ca sul video il noto messaggio ★ REWIND CASSET¬ 
TE TAPE ... 




Dopo la lettura del record il file viene chiuso ed 
appare il messaggio ★ PRESS CASSETTE STOP ... 
È il momento di aggiungere nuovi record. Il file viene 
aperto nuovamente nel modo OUTPUT, ma questa 
volta non si deve riavvolgere il nastro perché la nuova 
registrazione dovrà iniziare esattamente là dove è 
terminata la precedente. 

Per provare si potranno scrivere record non dissimili 
dal primo, cioè: RECORD N. 2, RECORD N. 3, ecc.. 
Per terminare è previsto che si debba scrivere FINE 
ed ovviamente questa parola convenzionale non vie¬ 
ne registrata su nastro, ma indica semplicemente al 
programma che il file deve essere chiuso. 

Alla linea 490 la variabile TOT contiene il numero 
totale dei record scritti, cioè quelli preesistenti più 
quelli aggiunti; tale numero, come abbiamo già det¬ 
to, va annotato accanto a quello che indica il punto di 
inizio del file. 

Il programma, essendo scritto a semplice titolo d’e¬ 
sempio, è stato strutturato in modo ciclico. La linea 
560 rinvia all’istruzione 200, dalla quale è possibile 
ripetere da capo le operazioni per aggiungere nuovi 
record ai precedenti. 

I gruppi di informazioni scritti di volta in volta sono 
separati solo da un gap (cioè un intervallo vuoto sul 
nastro), un po’ più lungo di quelli lasciati normal¬ 
mente, che non disturba assolutamente la lettura 
sequenziale dell’intero file. ■ 

































Apple 


Dispongo di oltre 200 programmi di ogni genere per Apple che 

cambio con chiunque mi contatterà inviandomi la sua lista A 
tutti invierò la mia lista. Stefano Ricci • Via Della Pace. 47 - 
60033 • Chiaravalle (ANJ - Tel 1948015 

Compro programmi di qualsiasi tipo per Apple II Massimo 
Tabasso - Piazza Molineris. 1 - 12038 Savigliano (CN) 

Vendo software per Apple II o cambio con hardware o softwa¬ 
re. Vendo ZX81 più software piu accessori (manuali. 16 Kbyte. 
tastiera, cavi, trasformatore, listati, ecc). Marco Carrubba - Via 
Campionesi. 29 - 20135 Milano - Tel 02/585294 

Svendo oltre 150 dischi contenenti entrambi I lati software per 
Apple II Ingegneria - grafica - gestionali - elaborazione testi • 
gestione archivi - tantissimi giochi. Richiedete elenco a: Mauri¬ 
zio Degioanni - Corso Santarosa. 67 - 12100 Cuneo - Tel. 
0171/61839 ____ 

Vendo disco Zaxxon per Apple II - Ile perchè ho cambiato base 
Prezzo nuovo Lit. 89000. lo vendo a Ut 70000. mai usato 
Gianluca Bollato - Via della Pieve. 76 - 35010 S. Eufemia di 
Borgoricco (PD) _ 

A A.A Affaroni. Vendesi programmi Apple, circa 200 (profes¬ 
sionali - totocalcio - Utilities - giochi) a Lit 600000 Per maggio¬ 
re informazione telefonare. Carlo Cocciazucca - Via Monte¬ 
secco. 15 - 65010 Spoltore (PE) - Tel 085/207466 

Cambio/compro software per Apple Ile Tratto solo con Milano 
e comuni limitrofi. Contatterei anche seri computer club Si 
richiede, poiché si assicura, la massima serietà Matteo Pedro- 
ni - Via Uguccione da Pisa. 2 - 20145 Milano - Tel. 02/485478 

Eccezionale organizzazione software per Apple Ile Vendo pro¬ 
grammi di ogni tipo. Offerte straordinarie. Luigi Palumbo • Via 
Ristori. 8 - 00197 Roma - Tel 06/802783 
Vendo Apple Ile 48 Kbyte più monitor piu disco più scheda PAL 
più scheda mteger BASIC più scheda riconoscimento vocale 
più stampante grafica Franco Vagli - 80100 Napoli - Tel 
081/7233050 

Vendo Apple II originale in contenitore metallico corazzato con 
tastiera separata e chiave di accensione a Lit. 700000 Disk 
controller Lit 100000. G.C Giacobbe - Via Finocchiara, 46 • 
16144 Genova - Tel 010/825537 

Vendo Apple II europlus ancora imballato con modulatore TV a 
Lit 980000; espansione 16 Kbyte a Lit. 120000. disk controller a 
Lit. 100000 G.C Giacobbe - Via Finocchiara. 46 - 16144 Geno¬ 
va - Tel 010/825537 

Dispongo di oltre 1000 programmi per Apple Prezzi molto 
interessanti, possibilità di scelta Astenersi perditempo Trista¬ 
no Marchini - Via Rosselli. 6 - 58033 Castel Del Piano (GR) - 
Tel 0564/955549 


Vendo ZX81 più 16 Kbyte. RT x 27 Mhz più VFO ecc. registrato¬ 
re per VIC 20. Permuto eventuale conguaglio con Spectrum 
Vendo riviste materiale elettronico Arnoldo Cicalò - Via Di 
Pratale, 103 - 56100 Pisa - Tel. 050/570384 _ 

Vendo programmi per ZX Spectrum 16/48 Kbyte a prezzi bas¬ 
sissimi Scrivere per ricevere l'elenco completo Marco Pagnim 

- Via S. Biagio. 212 - 29011 Borgonovo VT (PC) 

Vendo programmi per Spectrum a Lit 3000 ciascuno oppure 10 
per Lit 23000 Programma "Scuola guida" con 1800 risposte ai 
quiz più manuale a Lit 20000 Cedo decine e decine di pro¬ 
grammi in cambio di una stampante Marco Sivori - Via Bachet- 
ta. 18/9 - 16162 Bolzaneto (GE) - Tel 010/403118 

Vendo ZX Spectrum 16 Kbyte espandibile a 48 Kbyte a Lit 
250000 Vendo stampante Seikosha G0100VC per CBM a Lit 
400000 Vendo Texas TI58C a Lit 80000 Paolo Grilli - Via 
Tevere. 4 - 05100 Terni - Tel. 0744/812565 
Cambio e vendo programmi, riviste su cassette e libri per ZX 
Spectrum Oltre 300 titoli 1 Richiedete e/o inviate lista a Claudio 
Acquaviva - Via Del Mare. 41 - 73100 Lecce - Tel 0832/33711 
Compro qualsiasi gioco d'azzardo e di carte (listato o cassetta) 
per Spectrum Per accordi scrivere a Claudio Valli - Corso 
Magenta. 64 - 25121 Brescia - Tel 030/290129 

Vendo programmi per ZX Spectrum 16/48 Kbyte a prezzi favo¬ 
losi uno Lit 4000. 2 Lit 7000. Originali inglesi Scrivere o 
telefonare per elenco completo Orario: 12 30 - 15.30 Luigino 
Dalu - Via Dei Traghetti. 127 - 00121 Ostia (Roma) - Tel 
5699251 ____ 

Vendo o cambio software Spectrum a Lit 2000 massimo: no 
perdete l'occasione! Inoltre se abitate nella mia zona riceverete 
un magnifico programma! Enrico Busto - Via Campo Sportivo, 3 

- 10061 Cavour (TO) 


Vendo ZX Spectrum 16 Kbyte con piu di 100 programmi, molti 
libri e parecchie riviste che trattano la programmazione della 
macchina Prezzo interessante. Ivano Bertazzo. Via Faggio. 56 
bis - 35100 Padova - Tel 049/617151 
Vendo programmi per ZX Spectrum a Lit 5000 cadauno Quan¬ 
tità minima 2 programmi. Forti sconti per quantità Richiedere 
catalogo con oltre 100 titoli. Stefano Sansauim - Via Dei Macci, 
18 - 50122 Firenze - Tel 055/652321 

Compro anche In blocco tutto II software esistente per lo Spec¬ 
trum solo se prezzi bassissimi Inviare liste a: Francesco Schivo 
- Via Dei Nebrodi. 69 - 90144 Paler mo - Tel 091/516358 

Vendo per Spectrum programmi originali (oltre 250) a Lit. 4000 
cadauno, tutte le ultime novità tra cui Atic Atac, Alchemist, 
Manie mmer. Jet set Willy, ecc. Forti sconti per grossi quantita¬ 
tivi. Ivo Taffarel • Via Einaudi. 41 - 31029 Vittorio Veneto (TV) - 
Tel 0438/550409 __ 

Cerco collaboratori per fondazione club utenti ZX81 tutta Italia 
Scrivere per ricevere chiarimenti o per sottoscrivere l'iniziativa 
Accetto anche nuove idee Matteo Lmares - Via Rosolino Pilo. 4 
• 91025 Marsala 

Vendo ZX Printer a Lit. 150000 Sono disposto a cambiare con 
joystick programmabile vendo cassette con 10 giochi a scelta 
per Spectrum a Lit. 15000 più spese postali Telefonare ore 
pasti Fabio D'Amico - Via 5 Giornate. 14 - 20025 Legnano. 14 - 
Tel 0331/595581 

Posseggo molti programmi per ZX Spectrum 16/48 Kbyte (so¬ 
prattutto 48 Kbyte) Scrivetemi per ricevere la lista gratuita 
Simone Frosini - Via Cesalpino - 52100 Arezzo 

Per Spectrum club distribuisce ai soci il miglior software ingle¬ 
se A nuovi iscritti un programma omaggio tra: Jet set Willy. 
Pogo, Mugsy. Sabre Wolf. Olymoics, Wheelie. Tribble-trubble. 
ecc Spectrum Club c/o Guglielmo Tiscar • Via Gerbole. 74 - 
10040 Volvera (TO) 

Vendo ZX Spectrum 48 Kbyte piu registratore piu circa 100 
programmi in linguaggio macchina. Buon prezzo Luca Monti- 
naro - Via per Cesano Boscone. 24 • 20094 Corsico(MI) - Tel 
4400479 

Cambio programmi per ZX Spectrum. ultime novità inglesi 
Rispondo a tutti, inviate vostra lista ed io farò altrettanto An¬ 
nuncio sempre valido Raffaele Maruca - Via E Toti. 27 - 21047 
Saronno (VA) - Tel 02/9606819 

Per ZX80-81 vendo programmi matematica, Ingegneria siste¬ 
mi e equazioni - travi ipe - integrali def ruote dentate - calcolo 
polinomi - carene dritte • analisi delle decisioni • Data Base • 
grafici 2D/3D HR ecc Richiedere elenco gratuito Vincenzo 
Marino - Piazza Volontari Giuliani. 8 - 34126 Trieste 

Cambio, compro, vendo software per ZX Spectrum registrato 
direttamente da computer Scrivere per la lista. Un programma 
Lit 1000 (16 o 48 Kbyte); 10 programmi Lit 8000 (16 o 48 Kbyte). 
20 programmi Lit 14000 (16 o 48 Kbyte) Flavio Bassi • Via 
Mirtilli. 4 - 40137 Bologna - Tel 051/340917 

A tutti gli Spectromam ho fondato un fantastico club (il "Sin¬ 
clair softelub") senza fini di lucro, che si propone di scambiare, 
comprare o vendere a prezzi irrisori (Lit. 1000 a programma) 
software per Spectrum Marco Maffezzoli - Via Cà Nova. 17 • 
37016 Garda (VR) - Tel 045/7255097 

Vendo software per ZX Spectrum. Richiedete la lista con oltre 
400 programmi A richiesta i programmi possono essere regi¬ 
strati su cassetta o su cartridge Scrivere a Mauro Rorato - Via 
Dei Tigli. 2/A • 20090 Rodano (hi])_ 

Vendo programmi per ZX Spectrum 16 Kbyte a Lit 1000. 48 
Kbyte a Lit 2000. Scrivere o telefonare per ricevere elenco 
completo di spiegazioni. Dispongo di più di 200 programmi 
Giampaolo Pisano - Via Michelangelo. 5 • 0034 Colleferro 
(Roma) - Tel 06/973805 __ 

Vendo Spectrum 16 Kbyte più manuale italiano e "77 program¬ 
mi per lo Spectrum". "Programmazione dello Spectrum" piu 85 
listati e 40 programmi su cassetta Tulto a Lit 300000 piu spese 
postali Telefonare ore pasti Luca Mmudel - Via Kennedy. 11 - 
31015 Conegliano (TV) - Tel. 0438/34272_ 

Urgente" Compro ZX80 nuova ROM senza alimentatore ne altri 
accessori al prezzo di Lit 50000 purché in buono stato e 
funzionante Svendo in blocco e a metà prezzo riviste di elettro - 
nica/informatica Giuseppe Cardella - Via Martogna. 46 - 
91100 Trapani - 0923/48454 

Vendo ZX Spectrum 48 Kbyte piu registratore TCM3 piu ali¬ 
mentatore registratore più oltre 200 programmi piu 8 libri e 
manuali di linguaggi II tutto a Lit 1200000 trattabili Marco 
Zuccaretti - Piazza Gabrio Rosa. 6 - 20139 Milano • Tel. 
02/533508_ 

Attenzione'" Cerco possessori di Sinclair ZX Spectrum abitanti 
a Roma Ho molti videogames. veramente entusiasmanti, da 
vendere a non più di Lit 1000 Effettuo anche scambi Telefona- 
re Guido Alfam - Via Costanzo Cloro. 10 - 00145 Roma - Tel 
06/5133443 _ _ 

Eccezionale!!' Vendo cassette con programmi per Spectrum 
16-48 Kbyte a sole Lit 20000 per 20 programmi. Lit 30000 per 
35 programmi, ecc. I programmi sono a scelta, richiedete l'elen¬ 
co gratuito a Davide Di Dio - Via C. Alberto. 46/A - 80045 
Pompei (NA) - Tel 081/8635055 _ 


Vendo cassette da 50-100-150-200 programmi per ZX Spec¬ 
trum a Lit 50000-100000-140000-190000 Marco Zuccaretti - 
Piazza Gabrio Rosa, 6 - 20139 Milano - Tel 02/533508 

Vendo ZX Spectrum 48 Kbyte piu ahmentatoreRebit più cavetti 
più 50 programmi su cassette (inclusa la dimostrativa), usato 
pochissimo (4 mesi) causa realizzo al prezzo di Lit 350000 in 
contanti. Ivan Mazzavillani - Via La Fiorita. 120 -47023 Cesena 
- Tel. 0547/301873 

Cambio software per ZX Spectrum Inviare elenco o telefonare 
ore serali. Stefano Orlando • Via Petrarca. 153 • 20099 Sesto S. 
Giovanni (MI) - Tel. 02/2405323 _____ 

Cerchiamo possessori di Spectrum per scambio di software 
Per avere l'elenco dei programmi scrivetemi e mandatemi il 
vostro elenco Riccardo Rapetta - Via Petrarca. 25 - 39012 
Merano (BZ> - Tel. 0473/45448 

Cambio, compro, vendo software su cassetta per Spectrum a 
prezzi bassissimi. Cerco inoltre utilizzatori di questo computer 
nella mia zona per scambio di idee ed esperienze Massima 
serietà Antonio Dilorenzo - Viale Degli Oleandri. 7 - 71042 
Cerignola (FG) • Tel 0885/28289 

Cambio, vendo programmi per ZX Spectrum. Cerco anche testi 
riguardanti lo Spectrum Inviare liste e proposte Scrivere o 
telefonare a: Alfredo Trifiletti - Via Fiume. 20/A - 71100 Foggia - 
Tel 0881/75385 

Vendo programmi per ZX Spectrum e Commodore 64 Vendo 
inoltre interfaccia joystick e floppy disk drive per ZX Spectrum 
Richiedere elenco programmi scrivendo o telefonando ore uffi¬ 
cio Mario Bonomo - Loc Cavassico Superiore Nr 100 • 32028 
Trichiana (BL) - Tel 0437/212204 

Vendo, cambio programmi per ZX Spectrum. possibilmente nei 
dintorni di Ancona Invio lista a chi interessasse Emanuele 
Petrmi - Via Camerano, 29 - 60100 Ancona - Tel 071/84428 
Vendo Spectrum ZX80 al miglior offerente, tenuto molto bene e 
provvisto di manuale italiano. Assembler e L.M., oltre 100 pro¬ 
grammi tra i più noti, eventuale registratore nuovo (passo al 
QL) Lorenzo Bassi - Piazza Civitena Paganico. 12 - 00139 
Roma 

Vendo ZX81 da riparare piu espansione memoria 16 Kbyte piu 
connettore (registratore/video) più alimentatore più 2 manuali 
(inglese e italiano) piu una cassetta (MCTT) piu registratore 
alimentato a batterie e corrente. Il tutto a sole Lit 200000 
Telefonare ore ufficio. Regalo software da copiare. Mario Mac- 
carone - Via dell' Agricoltore. 15 - 95100 Catania - Tel 
095/361447 


Commodore 


Software VIC 20.1 migliori programmi per questo eccezionale 
home computer, dai videogame ai gestionali, a condizioni dav¬ 
vero strepitose Richiedere ricco e dettagliato catalogo a; Vin¬ 
cenzo Musicò - Via Paolo Blandino. 12 - 98100 Messina - Tel 
090/2938626 

Cambio software per CBM 64 Posseggo giochi stupendi ed 
interessanti utility su disco o su nastro Inviatemi vostra lista, 
invierò la mia con l'indicazione dei programmi che mi interes¬ 
sano Giuseppe Valente - Via G. Di Vittorio. 8 - 72100 Brindisi - 
Tel 0831/83149 

Vendo programmi per VIC 20 e C64 Per VIC 20 Lit. tOOOO a 
cassetta con vari giochi in L M Per C64 vendo programi a Lit. 
60000 cad. (Cammei. Skirace. Biliardo. Soccer. Centipede 
ecc.) Telefonare dalle 12 alle 14 Enrico Somenzi - Via Vespri 
Siciliani - 20100 Milano - Tel 02/4222000 

Vendo per VIC 20 una selezione di 6 giochi su cassetta, con 
grafica sofisticata ed alta velocità, funzionanti senza espansio¬ 
ne. a sole Lit 15000 Per ordinarla telefona dalle 18 alle 22 a 
Stefano Cannelli - Via Rivotorto di Assisi - 06080 Assisi (PG) - 
Tel 075/814112_ 

Cambio software per Commodore 64. Dispongo di una vasta 
gamma di giochi Cerco inoltre una stampante di seconda 
mano Inviatemi le vostre liste Mattia Benzi • Via Sandro Carna¬ 
io. 19 - 15048 Valenza (AL) - Tel 0131/918960 

Vendo, cambio software Commodore 64 Molti titoli quali Hob- 
bit. Simon BASIC con istruzioni ecc. Scrivere specilicando il 
mittente a Alessandro Marola - Via C.F. di Martiniana. 4 • 13100 
Vercelli 

Cerco per Commodore 64 floppy disk tipo VC 1541 o altri simili 
Per informazioni rivolgersi a: P Paolo Scannicchio - Via Gen. 
Carlo Spatocco. 19 - 66100 Chieti - Tel. 0871/63535 
Per CBM 64 vendo interfaccia IEEE 488 (permette di collegarsi 
ad una qualsiasi stampante parallela o ad un modem) Per 
informazioni telefonare ore pasti Fabio Secchi - Via Donizetti. 8 
- 20052 Monza - Tel 039/321308 

Vendo, cambio programmi per CBM 64 l prezzi utilità da Lit 
2000 a 6000. giochi da Lit 2000 a 4500. vtdeogiochi da Lit. 3000 
a 5000. Per tutti i gusti Mandate la vostra lista, io manderò la 
mia Antonio Di Luca - Corso Vittorio Emanuele. 48/B - 80059 
Torre del Greco (NA) - Tel 081/8815796 
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Siamo un gruppo di utenti VIC ed abbiamo (ondato un club 

Por informazioni gratuito scrìvere o telefonare a Carlo Tappa¬ 
gli - Via Pordox. 37 - 57033 Cecina (LI) - Tel. 0586/689982 
Vendo Commodore 64 più registratore, nuovi (imballati): Lit 
530000 più Lil 115000 piu ottimo DataBase (90 campi per 
record) Lit. 30000. Pino Cau - Via Anastasio II, 79 - 00165 Roma 
• Tel. 0765/255029 

Cerco, cambio, vendo giochi ed Utilities per Commodore 64 su 
dischetti o cassetta. Offro giochi, linguaggio macchina ed Utili¬ 
ties. Telefonare o inviare liste per scambio Roberto Catanuso • 
Piazza Armerina. 10 - 96100 Siracusa - Tel 0931 /58272 

Vendo programmi per C64 Hes mon. Pet Speed, Lasi one. 
Clone, ecc Inoltre dispongo di documentazione varia. Scrivere 
o telefonare a Paolo Bigon - Via S Marco. 177/A - 35020 
Padova - Tel 049/629117 

Vendo VIC 20 piu Datacassette più 45 programmi tra cui Space 
invaders. Briscola più cartridges "Star Battle" al prezzo incredi¬ 
bile di Lit, 245000. Scrivere o telefonare ore pomeridiane. Car¬ 
mine Roberto La Mura - Via Mazzini. 57 bis - 80045 Pompei 
(NA) - Tel 8638595 

Vendo programmi per Commodore 64 e Spectrum 16-48 Kbyte 

su cassetta Ogni programma Lit. 5000 per informazioni telefo¬ 
nare ora di cena. Michele Riva - Vie Regina Margherita. 11 - 
20052 Monza (MI) • Tel 039/365191 

Per CBM 64 vendo Legge 373 - Energia solare Svendo i primi 
tre volumi enciclopedia BASIC Curcio da rilegare a Li! 40000 
Salvatore Garro - Via Vitetta. 35 - 89100 Reggio Calabria - Tel 
0965/52411 

Vendo cambio programmi per CBM 64 sia su disco che su 
cassetta Dispongo di molti programmi tra cui Speech. per far 
parlare il computer. Simons' BASIC. Turbotape e tantissimi altri. 
Inviare lista. Fabrizio Ganem - Via Luigi Zambarelli, 32 - 00152 
Roma - Tel 06/5376138 

Compro, cambio, vendo programmi per CBM 64 Dispongo di 
numerosi programmi, giochi, utility: BASIC 4. Magic Desk. Data 
Base. Superbase. magazzino. Koalapamter. Sintetizzatore vo¬ 
cale Richiedere lista Augusto Bernardini - Via Valle Verde. 5 - 
05100 Terni - Tel 0744/56870 

Vendo per CBM 64 oltre 400 programmi Utility, gestionali, 
giochi, scientifici Magic desk. Easy Script. Petspeed. The last 
one. Hesmom. Simon BASIC,.... Richiedere listino. Massimo 
Cantelli • Via Corso. 40 • 40051 Altedo(BO) - Tel 051 /871270 

Vendo giochi per VIC 20 tutti in LM (Pac-man. Asteroid, Amok. 
ecc.) con prezzi speciali per chi acquista più di 5 giochi. Telefo¬ 
nare o scrivere. Luca Galimberti - Via Pota. 39 - 22060 Cablate 
(CO) - Tel 031/767022 

Vendo, cambio per C64 software Turbotape. Fort Apocalypse. 
Pipelme. Calcio. Scacchi, Seawolf. Easy Script. Spnteman e 
molti altri su cassetta o disco Ho anche programmi professio¬ 
nali per CBM 3032/4032. Ore pasti Furerà Giampaolo - Via F. 
Gamba. 7 - 25100 Brescia - Tel. 030/383097 
Vendo per VIC 20 Motherboard 3 slot, per collegare più cartnd- 
ge contemporaneamente Lit 34000 Super Motherboard 6 slot, 
con interruttori e RESET Lit 50000. Light pen (anche per C64) 
Lit 34000 3 Kbyte autocostruita, perfetta Lit. 38000 Gianni 
Bozzi • Via Savona. 16/5 - 20099 Sesto S Giovanni (MI) - Tel 
02/2407825 

Per CBM 64 vendo, cambio programmi (giochi ed utility) vendo 
inoltre cartuccia "Sea wolf" mai usata Lit 35000 Telefonatemi 
ore pasti o scrivetemi Rispondo a tutti Domenico Cucurachi - 
Via F Patena - 10155 Torino - Tel 011/265057 

Compro programmi giochi e utili per VIC 20 listati o cassetta a 
prezzi ragionevoli. Inviare ricco elenco dettagliato senza inclu¬ 
dere francobolli (rispondo io a tutti) Annuncio sempre valido 
Stefano Bucciarelli - Via Pizza di Villa Carpegna. 41 - 00165 
Roma - Tel 06/626381 

Per C64 vendo nastro con Turbotape più Simon s BASIC piu 
Smthyvocal più Calcio più Skyrace più Database con tempo di 
carica in meno di 30 secondi per ogni programma Prezzo 
eccezionale. Scrivere o telefonare ore pasti Luciano Onza - 
Via Mazzini. 84 - 86100 Campobasso - Tel 0874/65194 

Compro, vendo listati per VIC 20 inespanso o con espansione 8 
Kbyte RAM. Scrivere o telefonare a Cataldi Rodolfo - Via Orti- 
gara. 31A - 73100 Lecce - Tel 0832/26211 

Cambio, vendo software per CBM 64 sia games che Utilities 

Scrivetemi o telefonatemi (ore pasti). Rispondo a tutti Simone 
Solari - Via Baisi. 1/4 - 16035 Rapallo (GE) - Tel 0185/51223 

Vendo, cambio programmi di ogni genere per Commodore 64 
Rispondo a tutti. Luigi Doveri • Via I Maggio. 15 • 56025 Ponte- 
dera (PI) - Tel 0587/212154 


Per passaggio ad altro sistema vendo in blocco o separata- 
mente 40 dischi completi e cassette con 200 giochi e altrettan¬ 
te utility per CBM 64 (Easy Script - Ingegneria - Matematica - 
Musica - Sprites ecc). Elio Priano • Via Novarea. 10 • 10064 
Pinerolo - Tel 0121/78602 

Compro, vendo programmi per Commodore 64 (giochi, utility, 
gestionali) solo di ottimo livello. Dispongo di ottime traduzioni 
delle migliori utility. Costantino Mustacchio • Via Tarquinia. 3 - 
04016 Latina - 0773/487631 

Cambio, vendo programmi su cassetta per VIC 20 con o senza 
espansione memoria anche in LM. Games. utility. Zona Roma 
I eietonare ore pasti tnzo Silvestri - Via Pisino, 78 - 00177 
Roma - Tel 2585517 

Vendo programmi per Commodore 64: giochi, utility, gestionali 
da Lit 6000 a Lit.15000 su cassetta. Chiedere listino e prezza¬ 
no gratuitamente Andrea Caiazza - Via Fucilari. 28 - 84014 
Nocera Inferiore 

Cambio programmi per CBM 64. Posseggo: Il gioco della tom¬ 
bola • La roulette - Gioco del 7.5 - Indovinare 5 numeri su 90 • 
Sistemazione di numeri in ordine crescente essendo mischiati 
- Totocalcio. Salvatore Purgato - Corso Europa. 26 - 81030 - S 
Marcellino (Caserta) - Tel. 081/8121276 

Vendo, cambio software per C64 a Lit 5000 (sopratutto giochi) 
Scrivere o telefonare a: Roberto Del Sale - Via A Severo. 189 - 
00145 Roma - Tel 06/5112815 

Vendo, cambio software per CBM 64 programmi di ogni tipo. 
Utilities e giochi. DataBase e Toolkit. Inviare e richiedere la lista 
ed i prezzi a: Roberto Franzoso - Piazza Medaglie D'oro. 6 - 
14100 Asti 

Sono interessato all'acquisto di programmi di ogni genere per 
Commodore 64. Pregasi inviare eventuali liste con prezzi. Bru¬ 
no Manno - Casella Postale 2018 - 37100 Verona 

Cambio, cedo per CBM 64 programmi su cassette e dischi 
Graditi programmi di utility. Enzo Petnzzo - Via Nazionale. 157 - 
84030 Padula Scalo (SA) - Tel 0975/74022 

Cambio, vendo programmi per CBM 64 Giochi, utility, gestio¬ 
nali. Chiedere lista, rispondo a tutti. Franco Di Minica • Via 
Castelvetrano. 64 - 00133 Roma - Tel. 06/6162446 
Cambiamo, vendiamo, acquistiamo per il neo nato "Bug Club", 
software per CBM 64 Inviate i vostri listini. Notevoli agevolazio¬ 
ni per i soci Richiedete informazioni per iscrizioni anche fuori 
Campania Antonio Di Luca - Corso Vittorio Emanuele. 48B - 
80059 Torre del Greco (NA) - Tel. 081/881579 

Compro, cambio, vendo programmi per Commodore 64 di 
qualsiasi tipo All'invio della lista (indicare la trattativa che vi è 
più congeniale), risponderò con la mia. Franco Bruno - Via G. 
Bratti. 100 - 47023 Cesena (FO) - Tel. 0547/23810 

Cambio per CBM 8032 compilatore DTL con The Manager 
oppure The last one. Compro ROM per espandere a 96 Kbyte. 
Mauro Marangoni - Via F Massi. 22 - 00152 Roma - Tel 
06/5806566_ 

Cambio programmi per Commodore CBM 64. Gianluigi Peduto 
- Via Malgrado. 9 - 40125 Bologna 

Cerco qualsiasi tipo di programma per CBM 64. Inviare liste a 
Monti Luciano - 6936 Cademario/Ti - Svizzera - Tel 
091/592385___ 

Vendo fantastica cassetta per VIC 20 versione base. Tra gli 
altri Briscola • Breakout - Invader fall - Kong - Forza 4 - 
Picmam • Slalom - Labirinto 3D - Attacco navale - Grand Prix 
Venti giochi solo Lit. 20000 Scrivere a : Giovanni Bongiorni - 
Via Merosi. 11 - 29100 Piacenza - Tel. 0523/60475 

Vendo, cambio per VIC 20 programmi di giochi e di utilità in 
BASIC ed in linguaggio macchina Prezzi stracciati! Richiedere 
liste telefonando oppure scrivendo. Umberto Benelli • Viale XX 
Settembre. 180 54031 Carrara-Avenza (MS) - Tel 

0585/57145 

Cerco utenti di Commodore 64 per scambio o vendita di pro¬ 
grammi e giochi Sono interessato a giochi su cariridge ma solo 
se a buon prezzo. Telefonate tra le 20 e le 21 Fabrizio Botti - Via 
Papa Giovanni XXIII. 23 - 20093 Cologno Monzese (MI) - Tel 
02/2535812 

Cambio programmi giochi e Utilities per CBM 64 possibilmente 
in Lombardia. Piemonte. Emilia, Veneto. Trentino solo su cas¬ 
setta. Dispongo anche di molte riviste e programmi inglesi per 
Sinclair Francesco Biliari - Via Ciovasso, 4 - 20121 Milano - 
Tel 02/870951 

Vendo I seguenti programmi su disco per CBM 64: Pitstop. 
Headbeach. Petspeed. Petemulator. Apocalyps. Repton. il tutto 
a soie Lit 200000! Telefonare dalle 20 alle 22. Davide Busetti - 
Via S Polo. 682 - 30125 Venezia - Tel. 041/86488 
Per Commodore 64 cambio, compro, vendo a prezzi stracciati 
programmi (oltre 200) e manuali In italiano Giandomenico 
Bassani - Corso Libertà. 35/11 - 39100 Bolzano - Tel 
0471/42235 

Cambio, vendo programmi e giochi per C64 solo su nastro. 
Dispongo di oltre 300 programmi Inviatemi la vostra lista, io vi 
spedirò la mia. Rispondo a tutti gli interessati, annuncio sempre 
valido. Claudio Baco - Via Dei Pelaghi. 165 - 57100 Livorno - 
Tel 0586/852551 


Vendo e cambio programmi, per CBM 64. in BASIC e in L.M.. di 
giochi e Utilities su cassetta Richiedere lista programmi a: L. 
Daniel Bytner - Casella Postale 12 - 11010 Saint Pierre (AO) 

Vendo software di vario genere per CBM 64. su nastro e su 
disco, a prezzi compresi tra Lit. 15000 e Lit 40000 Dispongo di 
tutte le ultime novità! Alberto Borgmi - Via S. Rocco. 34 - 21013 
Gallarate (VA) - TEI. 0331/795770 

Vendo "Julius Ervlng and Larry Bird go one-on-one" (Electro¬ 
nics Arts). la simulazione per CBM 64 del gioco della pallaca¬ 
nestro. Schiacciate, canestri acrobatici, rimbalzi e anche tiri 
liberi. Nastro Lit 25000, disco LH. 30000 Alberto Borqmi - Via S. 
Rocco. 34 - 21013 Gallarate (VA) - Tel. 0331/795770 

Vendo "Flight simulator II" (Sublogic) per CBM 64. su disco, 
completo di istruzioni. Simulatore di volo mollo relislico. grafica 
3D a colon II prezzo è Lit 40000 Alberto Borgmi - Via San 
Rocco. 34 - 21013 Gallarate (VA) - Tel 0331/795770 

Compro programmatore di EPROM per C64 oppure desidero 
prendere contatti con possessori dell'apparecchiatura. Scam¬ 
bio programmi scientifici, linguaggi. Utilities, giochi Telefonare 
ore 20-22 Ferruccio Cantone - Via Genova. 18 - 10076 Noie 
Canavese - Tel. 011/9297125 

Vendo C64 mal usato, più registratore più 15 giochi a Lit 
700000 Vendo molti programmi per C64. Spectrum. VIC 20 
Qualche esempio: Per C64: 'Dr J. and Larry Bird go one-on- 
one". “Flight simulator II", ecc. Liste gratis Stefano Calcaterra - 
Via Marconi. 34/2 - 40122 Bologna - Tel 051/521063 

Vendo e cambio programmi per CBM 64. Sono tutti di alta 
qualità e tutti originali Commodore direttamente dall'America e 
Gran Bretagna. Aspetto vostre telefonate per ulteriori informa¬ 
zioni (disposto anche a comprare). Nunzio Caterino - Via Ro¬ 
ma. 2 - 81033 Casal di Principe - Tel. 081/8923003 
Cambio I seguenti programmi per CBM 64: Turbo tape - Poker - 
Rid Trap - Pit stop - Mondial Soccer - Dragons den - Fort 
Apocalypse - Biliardo Hunch back - Pacman - Grandmaster 64 
Tonino Crasto - Via Don Bosco. 9/e - 80141 Napoli - Tel 
081/449915 (ore 9/11 - 18/19 30) 

Compro, vendo, cambio software per C64 Ho a disposizione 
più di 100 programmi tra cui Simon s BASIC. Pascal. FORTH, 
Turbo tape. Sintetizzatore vocale e i più bei Arcade games. 
Telefonate alla sera. Jacopo Chiappetti - Via Vertoiba. 7 - 
20137 Milano - Tel. 02/571608 

Per C64 vendo e cambio programmi utility, giochi a Lit. 6000. 
Lit 7000 Simon's BASIC. DemoBASlC a Lit. 15000 per l'acquisto 
di 4 programmi o giochi gratis un nastro magnetico. Cerco a 
basso costo stampante in buone condizioni per Commodore 
64 Scrivere, rispondo a tutti. Gianfranco Cucetti - Via Monte- 
notte. 121/r - 17100 Savona - Tel. 019/21954 

Compro, cambio software per Commodore 64 Centinaia di 
programmi disponibili (utility, gestionali, giochi). Supporto dis¬ 
chetto. Richiedere e inviare liste, oppure telefonare Bruno 
Censori - Via Napoli. 133 - 63100 Ascoli Piceno - 
Tel.0736/42520 

Cambio, vendo programmi per Commodore 64 (posseggo cir¬ 
ca 100 giochi e Utilities). Solo su cassetta e in zona Roma 
Mandare liste o telefonare a: Massimiliano Carpi - Via Taro. 37 - 
00100 Roma - Tel. 06/867417 

Per CBM 64 dispongo di ottimi programmi e traduzioni di 
manuali inglesi (Simon's BASIC, manuale 1541 ecc.) Rivolgersi 
dopo le 20 a: Marcello Cesi - Via Magliano Nuova. 178 - 00146 
Roma - Tel. 06/5266009 

Cambio e vendo software per C64. Dispongo di molli program¬ 
mi Per scambi inviare vostra lista o telefonare ore pasti Paolo 
Cobianchi - Via Puccini. 3 - 43100 Parma - Tel. 0521/25896 

Vendo registratore per VIC 20 e C64 a Lit. 90000. Arnoldo 
Cicalò - Via Di Pratale. 103 - 56100 Pisa - Tel. 050/570384 

Vendo, cambio software per C64 Su discoo cassetta, Utilities e 
giochi in L M. e BASIC Per avere lista scrivere o telefonare (ore 
pasti). Fabio Capraro - Via Gorizia. 55 - 93100 Caltanisetta - 
Tel. 0934/23472 

Compro o cambio programmi di ingegnerìa per CBM 64 con 
programmi di tutti i tipi. Scrivete o telefonate dopo le 20 a: John 
Ceresi - Via Mazzini - 18016 S. Bartolomeo Al Mare (IM) - Tel. 
0183/400030 

Vendo per VIC 20 programmi di giochi • software applicativo - 
di utilità. Sono tutti su cassetta e girano m configurazione base 
o con espansione di memoria Per informazioni scrivere a: 
Sebastiano Caramagno - Contrada Cipollazzo - 96011 Augu¬ 
sta (SR) - Tel 0931/99336 


Cerco programmi per CBM 3032 e unità dischi a modico prez¬ 
zo. Andrea Amato - Via Edison. 8 - 22052 Cernusco Lombardo- 
ne (CO) - Tel 039/399580_ 

Cambio, vendo, compro software per CBM 64. in particolare su 
disco e gestionale. Inviare propria lista programmi a: Aston 
Luca - Via Sirtori. 39 -22062 Barzanò (CO) 

Vendo software CBM 64 (giochi) a Lit. 5000 l'uno, o cambio con 
programmi utiliti solo su cassetta Possiedo più di 100 giochi tra 
i quali: Pole position. Calcio 2. Fort Apocalipse. Ugh. Pit stop 
ecc. Maurizio Aiello - Via Napoli, 34/10 - 16134 (GE) - 
010/211600 
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Par Commodore 64 vendo programmi a prezzi modici Invio 
oonlroccogno m tutta Italia. Scrivere a Mattrange’o F»*seo • '/•? 
Casllina 1641 - 00133 Roma 

Cerco poateaaorl di Commodore 64 per «cambio esperienze 

in particolare esperti di grafica et/aut linguaggio macchina per 
completamento miei programmi di ingegneria civile Giovanni 
Malato - Via Haiech. 2 ■ 20129 Milano - Tel 02/741952 

Vendo e cambio giochi per II VIC 20 e il Commodore 64 Per 
informazioni telefonare a Fabrizio Mandler - Via Cagnola. 3 • 
20154 Milano ™_02/342867 

Cambio e vendo nuovissimi programmi per CBM 64 Arrivi 
settimanali da Germania e America' Telefonate' Si offrono e 
richiedono massima serietà e velocità Patrizio Masmt Via Del 
Caslagnone. 68 15048 Valenza Po (AL) - Tel 0131/953695 

Per CBM 64 compro qualunque tipo di programmi, utility e 
giochi Inviate le vostre listo n Gianni Muzzioli - Piazza Martiri, 
28 41012 Carpi (MO) 

Vendo 60 programmi per VIC 20. alcuni in L M a sole Lit 
30000. spese di spedizione comprese Giorgio Monachesi - Via 
Europa. 23 - 60025 Loreto (AN) - Tel 071/977179 

Ho un Commodore 64. vorrei acquistare programmi gioco o 
gestionali con supporto cassetta o listato Per vendita inviare 
lista caratteristiche e prezzi Cesare Marcotmi - Via Dei Velini. 
65 62100 Macerata - Tel 0733/31754 

Compro, cambio, vendo programmi per CBM 64 di qualsiasi 
tipo, solo su cassetta Accetto anche listati m buone condizioni 
e libri vari. Scrivetemi o telefonatomi (orario di cena) L'annun ■ 
ciò 6 sempre valido. Donato Lustrini - Via De Gaspen. 4 - 80035 
Nola (NA) - Tel 081/8237023 

Se hai un VIC 20 devi far parte del "Software computer club" 
Scrivete e riceverete le istruzioni per iscrivervi, oppure telefo¬ 
nate ore pasti Dano Li Gioì • Via Delle Ninfe. 3 - 91025 Marsala 
(TP) - Tel 0923/953585 

Cambio, compro, vendo mollissimi programmi per C64 di qua¬ 
lunque tipo, massima disponibilità Rispondo a tutti, telefonare 
0 scrivere a. Alessandro Luciani • Via Giotto. 11 - 52100 Arezzo 
• Tel 0 575/20515 _ 

Cambio, vendo software per C64 Richiedere lista o scrivere 
por accordi a Massimo Leoncini • Casella Postale 85 - 16035 
Rapallo (GE) 

Vendo VIC 20 più registratore, cartuccia videogioco. tantissimo 
software su cassetta, libri, foystick. istruzioni italiano, riviste 
vane, telefonare ore 19-20 Davide Novattet - Via L Dei Carret- 

to, 66 - 10100 Tonno - Tel 011/672893 _ 

Per C64 scambio/vendo software su disco o cassetta Oltre 
200 programmi (giochi piu utlity) a prezzi modici (scacchi 
totocalcio, flipper. Simons BASIC gestionali) Chiedere e invia¬ 
re lista a Leopoldo Nicci • Piazza Vittoria. 148 39100 Botano 
Tel 0471/33780 

Cambio programmi per Commodore 64 solo su nastro o nastro 
velocizzato (turbo tape) Marco Navalesi - Via Matteotti. 91 • 
54011 Aulla (MS) - Tel 0187/402627 

Cerco programmi per il CBM 64 solo su listato (anche fotoco¬ 
pie). inoltre cerco possessori di CBM 64 in Bergamo per scam¬ 
bio software ed esperienze Daniele Nons • Via S Bernardino, 
la 24100 Bergamo 035/221492 

Vondo programmi per Commodore 64 a prezzi eccezionali* 
Tratto solo zone Roma e Tivoli Telefonare ore serali allo 
0774/23950_ 

Vendo VIC 20 (comprato 11/02/84) piu registratore 2CN piu 
loysttck Spectravideo più 2 cartucce (Snrgon II Chess Advon- 
tureland) Lit 350000 Giovanni Oppenheim - Via Murai. 16 
34123 Trieste • Tel 040/796555 


Vendo e/o cambio, a prezzi oscenamente bassi, programmi 
per Commodore 64 (oltre 200) Scrivere o telefonare a Giovan¬ 
ni Poderzam - Via Candont. 35 • 48100 Ravenna - Tel 
0544/22250_ 

Vendo per VIC 20 e Commodore 64 1 seguenti programmi Data 
Base. Toolkits. Analisi cliniche. Dieto. Magazzino. Typezriter. 
liquidazione personale Vendo inoltre molti giochi li lutto su 
cassetta a prezzi molto bassi Stefano Pedoni - Via Vallebona 
10 00168 Roma • Tel 06/3380629 

Acquisto drive per floppy disk Commodore 64. solo in ottime 
condizioni Giuseppe Pannelto - Via Dante. 54 - 96014 Flondia 
(SR) Tel 0931/942147 

Per Commodore 64 vendo, cambio software (giochi. Utilities, 
dimostrativi) listati, dischi floppy, cassette Richiedete un elen¬ 
co Preti i sotterrati' Giovanni Padovani • Via Cefatoma. 4 - 
37126 Verona - Tel 045/44064 


Cambio, compro, vendo software per Commodore 64 solo su 
nastro Inviate la vostra lista, io invierò la mia. Vittorio Paola • 
Via Basile. 40 - 90100 Palermo 

Vendo In blocco circa 30 giochi per C64 tra cui Burgertime. 
Jump man. Skramble. ecc Vendo inoltre tantissimi altri pro¬ 
grammi Easy script. Assembler 64. Stmon's BASIC, ecc II tutto 
a Lit 100000 Roberto Presaghi - Via S Seconda. 36 • 00166 
Roma - Tel 06/6960421_ 

Cerco disperatamente per Commodore 64 software aziendale 
- word processing gestionali - archivio clienti • fatturazione • 
magazzino * ecc Invidie al più pi osto elenco In genere corco 
tutto sul 64 Biagio Pollina • Casella Postale. 4 • 90020 Baucma 

(PA)_ 

Por Commodore 64 cambio programmi di ogni genere Inviato¬ 
mi i vostri programmi registrali su cassetta, io vi invierò i miei 
incisi sulla stessa cassone Esprimetemi i vostri desideri sui 
programmi che desiderate Attilio Pansmi • Via S. Francesco 
d'Assisi. 16 - 70122 Bar. Tel 080/217996 

Se possiedi un VIC 20 o un CBM 64 e cerchi soflwere e 

hardware, prezzi modici Dealer enquines welcome L'annun¬ 
cio è sempre valido Roberto Puglia - 32 Stour Ciose. Chalvey - 
Slough. Berfcs/SL12TU/England - Tel 753/70273 

Vendo per VIC 20 un corso completo di BASIC, un libro per 
conoscere il VIC 20 ed un videogioco a cartndge a sole Lit 
160000 Telefonare solo pomeriggio Giuseppe Parrello - Vie O 
Fiacco. 14 74100 Taranto Tel 099/372301 
Vendo, cambio per CBM 64 moltissimi programmi Scrivetemi e 
riceverete la mia lista L'annuncio è sempre valido Vendo pro¬ 
grammi registrati su cassetta Rivolgersi a Salvatore Purgato - 
Corso Europa. 26 - 81030 S Marcellino (CE) • Tel 
081/8121276 _ 

Cambio software df utilità in qualsiasi campo per VIC 20 (16 
kbyte più MPS-801) preferibilmente su cassetta Inviatemi la 
vostre lista, vi spedirò la mia Marco Polla - Via G Marconi. 3 - 
32013 Longarone (BL) 

Per Commodore 64 e ZX Spectrum cambio programmi di ogni 
genere Aspetto le vostre telefonate Fabio Pison. Via Otcella. 
102 - 20020 Busto Garollo (MI) - Tel 0331/568337 

Vendesi cabinet espansione VIC 20 piu superexpander Sharp 
PC 1500 piu CE 150 Cenlinaia di programmi di ogni genere per 
CBM 64 Programmi originali per Hewlett Packard HC 150 
Prezzi modici Pockel Group - Club Utenti Commodore Puglia • 
Via Amoruso. 34 • 70124 Bari 

Vendo in blocco 60 programmi per VIC 20 Va cui Gndrunner. 
Space mvaders. Amok blitz. Crazy Kong. Grand prix e tantissimi 
altri II tutto al favoloso prezzo di L»« 20000 Se siete interessati 
scrivete a Roberto Parenti • Via Ottaviano. 33 - 00192 Roma 

Cambio/vendo programmi, per Commodore 64, di giochi, utili¬ 
tà. gestionali e relativi manuali Dispongo di oltre 200 program¬ 
mi Inviate liste e/o richiesto a Gerardo Marra - Via Baratta. 
91-A 84091 Battipaglia (SA) - T el 0828/2313 0 
Vendo giochi per CBM 64 Crazy Kong 2. Biliardo. Calcio 
Slalom. Turnoil. Frogger. Carnei Scramble. Cyctons. Laserzo- 
ne. Pac man. tutti m L M aLit 15000 l'uno Telefonate o scrive¬ 
te VmcenzoMigborati • Via del Tempo Libero - 06100 Perugia - 
Tel 075/755039 _ 

Vendo per VIC 20 programmi (anche LM.) a prezzi bassissimi 
(massimo Ut. 5000 cadauno. 10 a scelta solo Lit 25000 ulteriori 
sconti per ordini maggiori) Possiedo molti giochi • programmi 
archivio • utility, ecc. richiedete le liste. Sandro Mazzo - Via 
Boriatacela. 37 - 57034 Marma di campo (LI) - Tel 0515/97528 

Vendo, cambio giochi per C64 In L. M. (Moon Shuttle. Falcon 
patrol. Pii stop. Blue Ma*. Frogger. Kong. So. Calcio. Elicottero, 
Hexpert Carnei, ecc ) provvisti di Turbo tape Telefonare zona 
Milano, pomeriggio Marcello Porro - Via A Volta. 8 • 20017 
Rho (MI) - Tt» 02 9307205 _ 

Per VIC 20. causa passaggio a livello superiore, vendo una 
raccolta di 30 giochi 20 dei quali in linguaggio macchina II 
tutto a sole Lit 15000. o al medesimo prezzo 2 cartndges 
Pianalto Oberdan • Via S Agostino. 277 - 36100 Vicenza • Tel 
0444/562391_ 

Cambio, vendo per Commodore 64 giochi e utility, preferibil¬ 
mente su disco Scrivere o telefonare a: Eraldo Panasi • Viale 
dei Mughetti 36 - 10151 Tonno • Tel 011/734354 

Cerco possessori di CBM 64 di informazioni e compro software 
di qualsiasi gioco e di utility netta città di Terni Telefonatemi o 
mandatemi eventuale documentazione, rispondo a tutti Marco 
Rapaccmi - Via Campomaggiore. 21/R - 05100 Terni • Tel 
0744/241345_ 

Sei un possessore di VIC 20 o CBM 64? lo ho i programmi che 
fanno per te solo Ltt 3000 l'uno Ne posseggo tantissimmi Per 
il 64 accetto anche scambi su nastro o su disco Massima 
serietà Giulio Ravagm • Casella Postale 224 - 38068 Roverolo 
(TN) _ 

Per CBM 64 vendo S00 programmi utilità, gestionali vidoo 
games Arrivi settimanali dall'Inghilterra Per Speclrum 16/48 
Kbyte vendo 500 programmi più interfaccia per applicazione 
joystick Prezzi interessanti Letto Russo - Corso Vittorio Ema¬ 
nuele 46 - 80135 Napoli - Tel 081/214630 


Vendo, cambio, compro programmi o giochi per Commodore 
64 Richiedere catalogo gratis, vasto assortimento giochi Tele¬ 
fonare ore pasti Bruno Sorrentino - Via Leopardi, 49 • 39012 
Merano - Tel 32272 

Cambio, compro software per CBM 64 Videogamos in L M. 
programmi applicativi e di potenziamento del 64 Utilities per il 
floppy Inviare liste o telefonare dopo le 20 Ci sono altri CBM 64 
m zona Mano Sommani - Via Parma. 300/1 - 16043 Chìavan 
(GE) - Tet 0185/382517_ 

Cambio, vendo programmi per Commodore 64. molli originali 
amwnram tra r.ui un sintetizzatore vocale, Tulto a basso prezzo 
scrivere o telefonare ore pasti Antonio Stella - Via Don Mmzom 
- 51016 Montecatini Terme - Tel 0572/74655 

Per Commodore 64 vondo programmi-giochi in linguaggio 
macchina a prezzi favolosi Regalo Turbo tape a chi mi ordina 
più di cinque programmi Rispondo a tutti. Marco Sodano - Via 
Giovanni Pascoli. 1 • 00075 Lavinio (Roma) 

Cambio, vendo software per CBM 64 Dispongo di Turbo. Ma¬ 
gic desk. Stmon's BASIC e tanti giochi e Utilities Prezzi con soli 
tre zen' Gaetano Sciata - Via G Sorretto. 19-95127 Catania • 
Tel 095/378345 _ 

Per VIC 20 vendo cassetta conlenete 20 giochi funzionanti con 
memoria base, a sole Lif 15000 (compresa cassetta e spese di 
spedizione) Per maggiori informazioni rivolgersi a Luca Stuc¬ 
chi - Via Cavour. 17 - 20043 Arcore (MI) - Tel 039/613270 

Vendo, cambio, compro programmi per CBM 64 Prezzi favolo¬ 
si Pac man Lit 6000. Grandmaster Lit 9000. The hobbìt Llt 
15000. Soccer 3D Lit 8000. Defender Lit 8000. Monopoli Lit 
7000 Rispondo a tutti massimilianoSartor • Via Calafatimi. 59 - 
56015 Oratoio (PI) - Tel 050/980203 

Vendo, cambio, compro programmi per CBM 64 Richiedere o 
inviare lista a Michele Scott* - Via Nazionale dette Puglie. 43 - 
80030 Cmitile (NA) - Tel 061/8234281 

Per VIC 20 inespanso vendo, cambio software Dispongo di 
circa 100 programmi sia su cassetta che su listato Vendo 
inoltre VIC 20 piu manuale originale più 10 giochi a sole Lit 
190000 Diego Sammarilano - Corso Bufera. 56 - 90011 Baghe¬ 
ri (PA) - Tet 091Z637385 

Vendo oltre 1000 programmi per CBM 64 Chiedere lista a 
Mirco Sarto • Via Armistizio. 79 - 35100 Padova - Tel 
049/480794 

Vendo giochi e utility per C64 10 giochi Lit 40000 20 giochi 
Ut 65000 - 40 giochi Lit 85000 - 60 giochi Lit 100000 Prezzi 
trattabili per singoli programmi Telefonare ore 12-14 Marco 
Scianca - Viale Casiraghi. 185 - 20099 Sesto S Giovanni (MI) - 
Tel 02/2478337 _ 

Vendo, cambio 500 programmi per Commodore 64 Richiedere 
o inviare lista Mariano Talamo - Via Ciucci. 10 - 70019 Triggia• 
no(BA) - Tel 080/681470 

Vendo giochi per CBM 64 tra cui Black Jack. Othello. tutti su 
cassetta Telefonare ore pasti, tratto in Piemonte. Lombardia. 
Toscana. Veneto Alberto Ticozzi - Via Sosso - 15033 Casale 
Monferrato (AL) - TI 0142/53550_ 

Per passaggio a sistema superiore vendo VIC 20 e C64 e molli 
programmi per VIC 20 e C64 Bruna Tanasi - Via Sabbioni 8 - 
61015 Novafeltna (PS) Tel 910403 

Compro, cambio vendo programmi originali di vario genere 
per CBM 64 Richiedere e/o inviare lista a Claudio Tiom - Via 
Cividina. 59 • 33035 Mnrtignacco (UD) - Tel 0432/677627 
Vendo programmi per Commodore 64 tra i quali il favoloso 
Turbotape che eguaglia le (unzioni Save. Load. Verify alla velo¬ 
cità del floppy Telefonare per informazioni, ore pasti France¬ 
sco Trapani - Via Sorretti. 1 /A - 90139 Palermo - Tel 
091/266975 _ 

Vendo Commodore VIC 20 comprato a Gennaio piu 16 Kbyte 
RAM piu registratore C2N piu vari programmi (tra cui Jefly 
Monster. Skyhawk. Frog. ecc ) piu 2 manuali piu ‘Alta scoperta 
del VIC 20 il tutto al prezzo di Lit. 500000 trattabili Andrea 
Tagliapietra - Via Dei MarliniL 7 - 20146 Milano • Tel 
02/496852 

Per CBM 64 vendo cassetta con 15 super giochi In L.M. (Qua¬ 
sar. Elicottero. Le Mans, ecc ) a sole liL 25000 Vendo Simon's 
BASIC su cassetta con esempi e manuale a Lit 30000 Telefo¬ 
nare ore pasti Mansueto Trevisan - Via Fusmato. 26 • 32032 
Feltre(BL) • Tel 0439/80369 

Vendo, cambio per CBM 64 splendidi videogames, Utilities 
varie, programmi solo di eccezionale livello, luti» m L M Condi¬ 
zioni specialissime per acquisti In stock Contattatemi per cre¬ 
dere' Fabio Totaro - V»a XXV Aprile. 24 - 20040 Cambiago (MI) 

Vendo VIC 20 piu cartridge Programmerà aid piu Introduzione 
al BASIC” parie prima e seconda (completo di 4 cassetto) piu 3 
cassette con 20 giochi piu I libri Alla scoperta del VIC 20" e 
"Impariamo il BASIC col VIC CBM” Tutto a Ltt 170000 Antonio 
Tummo'o - Via Cilea. 8 - 71048 Stornnrella (FG) - Tel 
0885/32065 

Programmi per Commodore 64 tra I più belli vendasi a Lit 2000 
l'uno Vera occasione (almeno dieci programmi) Scrivi o telefo¬ 
na GiancarloTesti - ViaF P daCherso.4mt 6 00143Roma • 
Tel 06/5038267 _ 
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Vendo registratore Datacaisette per CBM 64. quasi nuovo in 
perlette condizioni più tutti i migliori programmi per C64 e 
decine di giochi, il lutto a Ut 200000. Pietro Busalacchi • Via 
Sperone. 34 - 90123 Palermo • Tel 091/391000 

Vendo programmi di ogni tipo per Commodoro 64 Inoltre cam¬ 
bio videogiochl protetti, duplicati su disco o con il "Clone".Scn- 
vere o telefonare a Paolo Bigon - Via S Marco. 177/A • 36020 
Ponte di Brenta (PD) - Tel 049/629117 

Vendo causa passaggio a sistema superiore VIC 20 più joystick 
più registratore C2N espansione 16 «byte più super expander. 
a Ut 400000 (di Febbraio) Regalo 6 cassette con programmi. 4 
libri per programmare. 50 listati MaunzioBertuccelli - Via delle 
Barbate. 36 • 55043 lido di Cantatore (LU) • Tel 0584/904767 

Possessori VIC 20 e C64 desiderano contattare altre persone 
interessate a scambio giochi e utility preferibilmente su casset¬ 
ta nella zona di Ferrara e provincia Per informazioni contattare 
Stefano Barillan * Via Don Mmzom. 22A • 44021 Ferrara • Tel 
0532/93403 _ 

Per passaggio ad altro sistema svendo Command 0 • VisiCalc 

- MicroAssembler C3 - DTL compiler - Chiave per proteggere 
programmi in BASIC. Completi di manuale, girano su CBM 
4032-CBM 8032. Augusto Bernardini - Via Valle Verde. 5 - 
05100 Terni - Tel 0744/56870 47148 

Cambio, vendo programmi di giochi e utility per VIC 20 Forni¬ 
sco su richiesta listato Scrivere o telefonare Luciano Baglioni 

- Via Dello Taverna. 20 - 00141 Roma - Tel 06/899286 

Vendo programmi vari per Commodore 64 Lazziaram AM. 
Seawolf Puckman. Simon's 8ASIC. Le Mans. Clawns. Sintetiz¬ 
zatore vocale ecc a sole Lit 5000 l'uno su nastro, piu spese 
postali Lil 3000 Scrivere o telefonare Giuseppe Borracci • Via 
Mameli. 15 - 33100 Udine - Tei 0432/291665 

Scambio programmi su nastro per Commodore 64. sia giochi 
che utility Richiedere e inviare fa lista a Cesare Boncompagm 
• Via Piave. 22 - 57013 Rosignano Solvay (U) - TEI 
0586/761577 

Compro/cambio/vendo software per Commodore 64 Accetto 
risposte solo nella zona Milano e provincia Preferibilmente 
giochi In L.M solo su cassetta o cartndge a basso prezzo 
Paolo Bertoli - Via Giordano Bruno. 60 - 20099 Sesto S Gio¬ 
vanni (MI) • Tel. 2474814 

Cambio-vendo programmi per Commodore 64. su nastro e su 
disco. Ho di tutto: Videogames. Utilities, gestionali Telefonare 
e/o mandare lista Luca Bertazzoni - Via Capuzi. 7 - 62100 
Macerata • Tel 0733/48585 

Compro programma commutatore, dal PET al Commodore 64 
Fabio Boiiassar • Via Cesare Lombroso. 13 • 95100 Catania - 
Tei 415353 _ 

Cambio software per Commodore 64 Ho molti programmi 
Inoltre cerco una stampante di seconda mano in buono stalo 
Telefonare a tutte le ore Inviatemi le vostre liste Mattia Benzi • 
Via Camasio 19 - 15048 Valenza • Tel 0131/91896 

Vendo, cambio 200 programmi per Commodore 64 su disco o 
cassetta Annuncio sempre valido, per tutti quelli che mi scrive¬ 
ranno assicuro risposta Aspetto le vostre lettere Roberto Cor¬ 
dovani • Casella Postale 7174 - 47100 Porli 

Vendo cartuccia Avanger, cassette con 19 fantastici program- 

i mi per il VIC 20 inespanso, di cui alcuni funzionanti con joy- 
i stick Inoltre vendo videogame telepartner a Ut 50000 piu 2 
loysticks più cartucce Egidio Cipriano - Via Abruzzo. 96 - 
74100 Taranto -Tel 099/339554 

Vendo programmi di qualsiasi genere con allegati manuali m 
italiano o inglese Eccezionali videogames su disco e gestiona¬ 
li per ogni esigenza Scrivere o telefonare dopo le 20 Cesare 
Cantarmi - Via Luigi Rava. 33 - 00149 Roma • Tel 06/5266675 

Per CBM 64 vendo, cambio 400 programmi di utility, gestionali, 
scientifici, bellissimi giochi su nastro o disco Richiedere elen • 
co Massimo Cantelli - Via Corso. 40 - 40051 Attedo (BO) - Tel 
051/871270 _ 

Per Commodore 64 vendo bellissimi giochi americani c inte¬ 
ressanti Utilities a prezzo conveniente Accetto anche scambi 
Maurizio Caracci - Via N. Morello. 48 • 90144 Palermo • Tel 
091/266011 

Per C84 vendo, cambio splendidi giochi • utility tipo Turbo tape 
e Simon's BASIC. Disponibile scambio liste telefonando ore 
pasti o scrivendo. Domenico Cuccorillo - Via Perrone. 8/A 
70123 Bari - Tel 080/23939379 

Per CBM 64 vendo programma sintetizzatore vocale Sam 
reciter e numerosi nuovi giochi tra i quali Beach e Pipe line e 
numerossisstmi altri programmi di utility FORTH. Simon. As¬ 
sembler. PET emulator ecc ecc. Luca Corbo - Via S Godenzo. 
119 - 00189 Roma - Tel 06/3666828 


Per VIC 20 e C64 vendo tasto RESET generale da inserirsi nel 
retro, modifico 8-16 Kbyte RAM m blocco 5. cambio numeroso 
software per V»C 20. vendo Simon's BASIC e Turbo tape (tutti su 
nastro) per CBM 64 Marco Cnppa - Via Cilea. 6 • 20021 Bollate 
(MI) - Tel 02/3506767 

Commodore 64 cerco programmi da acquistare o scambiare 
su cassetta, soprattutto ingegneria civile, gestionali, utility In¬ 
viate lista con caratteristiche e prezzi Massimiliano Carabeiii - 
Via Australia. 15 - 00144 Roma - Tel 06/5924220 

Vendo software originale per CBM 64 Giochi in L M famosi su 
disco o cassetta Telefonare o richiedere la lista Alessandro 
Cassuto • Via Europa. 36 • 20097 S Donato Milanese (MI) - Tel. 
02/52273966 _ 

Per VIC 20 vendo carlridges causa passaggio a sistema supe¬ 
riore Type attack. Astro blitz. Cosmic cruncker usate pochissi¬ 
mo a Lil 30000 Cuna anche separatamente Davide Di Bernardo 
• Via S. Giustina. 11 • 33057 Palmanova (UO) - Tel. 
0432/929433 

Vendo VIC 20 più mod RF piu alimentatore m confezione 
originale con manuale d'istruzione a Lit 150000 Rosario Di 
Betta - Via Parodi 42 - 88019 V.bo Manna (C Zi - Tel 
0963/240834 (solo sabato e domenica) 

Vendo, cambio programmi di ogni genere per Commodore 64 
Rispondo a tutti Matteo Doveri - Via l Maggio. 15 - 56025 
Pontedera (Pi) - Tel 0587/212154 

Cambio programmi e giochi in linguaggio macchina per Com¬ 
modore 64 (Pit stop. Pooyan. Super skramble. ed un altro centi¬ 
naio presi da cartndges) Amedeo De Franco - Via Mazzini. 277 
- 55049 Viareggio (LU) - Tel 0584/32134 

Cerco possessori di Commodore 64 per scambio di idee e 
programmi a mezzo posta in tutta la Sicilia Scrivete inviando il 
vostro indirizzo, numero telefonico e lista a Michele Donato - 
Via Gela. 40 - 96100 Siracusa - Tel 0931/58420 

Cambio, vendo, compro giochi, programmi utilità e totoenalto- 
Up per Commodore 64 Richiesta sempre valida Spedire mate¬ 
riale e/o offerte a“ Luigi Davi - Via Del Mare. 11/B - 80016 
Maranodi Napoli - Tel 081/7420282 

Acquisto, cambio programmi di ogni genere per Commodore 
64 Scrivere a: M G Di Trapani - Via Resurrezione. 94 - 90146 
Palermo - Tel 091/461027 

Compro floppy 1541 e software di ogni tipo per il C64 Lorenzo 
De Candia - Via Kennedy. 28/C • 70038 Terlizzi (BA) - Tel 
080/816456 ____ 

Vendo a Lit 595000 Commodore 64 nuovo più un gioco VIC 20 
più 561 Oki a Lit. 182000 Inoltre nuovissimi eccezionali giochi 
per VIC 20 e CBM 64. su cassetta e disco Invio lista gratuita¬ 
mente a chi la richiede Telefonare o scrivere a: Lorenzo Danie¬ 
le - Viale Faenza. 26/4 - 20142 Milano - Tel 0341/997168 

Eccezionale per VIC 20 cambio e vendo I migliori programmi in 
circolazione Richiedere le liste e/o inviare le proprie a: Fran¬ 
cesco De Colle - Piazzale Capolmaro. 11 • 00053 Civitavecchia 
(Roma) 

Cerco listati vari per Commodore 64 a prezzi contenut:. Scrive¬ 
re per contatti Ho il C64 da poco tempo e accetto di tutto 
videogames contabilità familiare ecc. purché m listato Marco 
Ferri - Via De Armo*. 26 - 47038 Riccione (FO) 

Vendo per ti VIC 20 dieci magnifici giochi in L.M. (Skramble. 
Abductor. Pac man. Frogger. Amok. Space mvaders Guardian 
Arcadia. Bewitched. Catena snalcha) a sole Lit 30000 Nicola 
Fenoli - Via Boezio. 6 - 21052 Busto Arsizio (VA) 

Cambio per Commodore 64 Simon's BASIC (su cassetta) piu 
manuale. 114 comandi in piu al BASIC, con linguaggio FORTH 
standard (sempre su cassetta o cartuccia) per il C64 più ma¬ 
nuale o compilatore Peet-speed Alessandro Fasolo - Via 
Augusta. 98 - 39100 Bolzano 

Vendo VIC 20 completo di registratore, borsone Commodore, e 
giochi più il libro "Alla scoperta del VIC 20" a Lit 330000 Vendo 
inoltre il libro "Alla scoperta dello Spectrum" a Lit 12000 Loris 
Ferro - Via Piatti. 4/1 • 37130 Verona - Tel 045/564933 

Vendo a Ut 5000 moltlitiml giochi (250) per CBM 64 Dispongo 
anche tantissimi utility a vano prezzo Cedo inoltre il libro 
originale inglese con 25 giochi a Lit 35000 Christian Passetta - 
Via Stresa. 48 - 00135 Roma Tel 06/3492628 

Vendo Commodore VIC 20 p«u registratore a Lit 250000 Ma¬ 
riangela Ferri - Via Paruta 77 • 20127 Milano - Tel 02/2567794 

Affarone per Commodore 64 vendo una cassetta con Turbo 
tape (che rende il caricamento 10 volte piu veloce) piu 40 giochi 
caricati con turbo per Datacassette 1530 modelloC2N al prez¬ 
zo di 195000 lire Lucio Fiorentino - Via Gramsci. 5 - 80122 
Napoli - Tel 081/680150 

Cambio, cerco ulility e programmi gestionali per Commodore 
64. preferibilmente con manuale in italiano Dino Fornaciari • 
Villaggio Dante. 30 - 52100 A rezzo - Tel 0575/351451 

Vendo, compro, cambio programmi di ogni tipo per CBM 64 
Fra i tanti posseggo il FORTH, I* Hesmon i Hes-writer. Turbo 
tape. Le Mans. Soccer. Pascal. Centipede Moon Buggy. ecc 
Scrivere a Giulio Frigo - Via Gramsci (Prol) * 07046 Porto 
Torres (SS) - Tel 079/502381 


Scambio centinaia di programmi per CBM 64 Sia utility che 
giochi su disco o su cassetta Inviatemi lista Gabriele Giordano 
- Via Perecca. il • 81055 S Maria Capua Vetere(CE) • Tel 
844675 _ 

Vendo, cambio oltre 800 programmi per Commodore 64 Tele¬ 
fonare o scrivere a Fabnzio Girelli - Via della Ginestra. 1 • 
10027 Testano (TO) • Tel 011/6456650 

Per C64 cambio, vendo programmi di qualunque genere Dis¬ 
pongo di moltissimi programmi, circa 500 Telefonare o inviare 
lista A chi ne farà richiesta invio la mia Giuliana Granito - Via 
Taraschi, 13 • 64020 S. Alio (TE) - Tel. 0861/587476 

Cerco qualsiasi espansione per VIC 20. anche Superexpander 
Scrivete o telefonate ore pasti solo se vera occasione Carlo 
Guerrato - Via Brusade. 15 - 30027 S Donà di Piave (VE) - Tel. 
0421/54044 

Vendo per VIC 20 programmi su cassetta a prezzi convenienti 
anche m LM Telefonare o scrivere Gianni Caudino • Via 
Graglia. 18 - 10136 Tonno - Tel 011/352830 

Vendo VIC 20 (2 mesi di vita ) piu 2 libri introduzione al BASIC 
PER VIC 20 (1 e li parte) piu 2 cassette ricche di programmi 
(allegate) Tutto a Ut 300000 trattabili Telefonare Sesto Aldino 
Grandi - Via Lanterna (zona militare) - 98019 Torre Faro (ME) • 
Tel 090/321427_ 

Causa passaggio a sistema superiore vendo VIC 20 nuovissi¬ 
mo piu espansione 16 Kbyte più molti libri VIC 20 più moltissimi 
giochi m L M e BASIC piu scheda ad aita risoluzione compresa 
la Mother board Stefano Guerrim - Via Montone. 11 • 48026 
Chiesuola di Russi (RA) • Tel 0544/581318 

Cerco programmi per C64 Sono disposto a cambiarli o a 
comprarli solo se il prezzo e favorevole Posso comprarne a 
grossi quantitativi, rispondo a tutti, annuncio sempre valido 
Piero Gentili • Via Fontanom. 18 - 61029 Urbino (PS) - Tel 
0722/4382 ____________ 

Vendo software per Commodore 64 Per informazioni o even¬ 
tuali vendite scrivere o telefonare a : Livio Galante - Via Antonio 
Corselo. 29 -00168 Roma - Tel 06/6287883 

Vendo, cambio, compro programmi per Commodore 64 Vendo 
cassette con Simon's BASIC o Screengraphicsa Lit 20000 Per 
scambio programmi inviatemi la vostra lista, to invio la mia a 
tutti Massima serietà Roberto Improta - Via Recanali. 27 - 
80046 S Giorgio a Cremano (NA) - 

Causa realizzo vendo computer Commodore C64 completo di 
registratore originale piu cavi più manuale piu 2 cariucce piu 
alimentatore ancora imballato a lit 650000 Telefonare ore 
pasti e chiedere di Massimo Massimo Inzoli - Via Medi. 1 - 
93100 Caltanisetta - Tel 0934/32551 

Scornino cori utenti Commodore programmi su nastro per CBM 
64 in Milano e tutta Italia Scrivere o telefonare ore pasti a 
Maurizio Lattuada - Via Pamzzi. 13 - 20146 Milano Tel 
02/427890 

Svendo cassetta con 15 programmi di fantastici giochi per VIC 
20 mespanso Prezzo Lit 15000 - spedizione contrassegno 
Davide Lanzoni - Via G Pmelii 15 - 45100 Rovigo • Tel 
0425/30846 

Amici del CBM 64 compro cambio programmi di qualunque 
tipo inviate le liste a Leonardo Lombardi - Largo A Banfi 4 • 
50018 Scandicci (FI) • Tel 055/25664 
Vendo e cambio programmi doro 64. Tulli m L M 

Originali americani Telefonare ore pasti Roberto Massaron • 
Via Luciano Manara. 10 - 20047 Brugheno (MI) • Tel 
039/879784 _ 

Compro registratore a cassette Commodore In cambio offro 
Simon's BASIC più Invasion of mutants camels piu altri giochi 
piu conguaglio m denaro Telefonare e chiedere di Marco. Solo 
Friuli Marco Mottiussi - Via Ciro di Pers 33030 Maiano (UD) 
Tel 0432/959141_ 

Attenzione 1 Ora non dovrete più aspetare tanto per cercare i 
programmi sul vostro C64 Vendo il Quick Load un programma 
che accelera di 10 volte il caricamento dei programmi E‘ su 
cassetta richiedetemelo. Ut 15000 Carlo Micheli - Via S Pri¬ 
mo. 6 • 20121 Milano - Tel 02/796868 

Per C64 cambio/compro/vendo numerosi programmi di gio¬ 
chi in L.M. e Utilities Telefonare o richiedere lista FlavioMarco 
Mambelii Via G Vaimarana. 68/A • 00139 Roma • Tel 
06/8122497 _ 

Vendo VIC 20 per L»l 200000 massimo Possiedo inoltre regi¬ 
stratore. giochi e cartucce Scambio giochi per C64 Telefona¬ 
temi dalle 14 alle 15 e dalle 20 alle 21 Andrea Magi • Via 
Filerete. 94 - 00176 Roma - Tel 06/274622 
Vendo Commodore VIC 20 piu 16 Kbyte RAM piu Super expan¬ 
der piu monitor L M su EPROM più manuale piu software 
formato da circa 500 programmi di ogni genere 9 di cui circa 
200 in L M ) Il lutto in ottimo stato ed in imballo originale a Lit 
600000 trattabili Giuseppe Mascali - Via R Margherita. 573 - 
98028 S Toresa di Riva (ME) - Tel 0942/791692 

Cambio programmi vari In linguaggio macchina per C64. » 
programmi sono su cassetta e posso registrarli con il turbo 
tape inviare liste o telefonare in ore pomeridiane Giuseppe 
Moliterni • Vico Fornaci. 8 - 75100 Matera - Tel 0835/211874 
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Cerco possessori di Commodore 64 per scambio di program¬ 
mi, idee ed eventuale fondazione di un club di commodoristi di 
cui la mia zona sembra sprovvista. Oscar Sillani - Via Attilio 
Greco - 84090 Montecorvino Pugliano (SA) 

Per CBM 64 vendo programmi di tutti i generi, sia su disco che 
su cassetta videogiochi, utility, grafica, musica, ingegneria, to¬ 
pografia. ecc. con allegati manuali d'istruzione in italiano e 
inglese. Cesare Cantarini - Via L. Rava. 33 - 00149 Roma - Tel. 
06/5268675_ 

Vendo per CBM 64 una cassetta contenente 5 giochi tra cui: 
"Impero” in 3D. "Burger lime". "Pac man". "Orsacchiotti". "La 
miniera". Vendo il tutto a Lit. 5000. Chi vuole scambiare invii la 
propria lista. Luigi Del Vecchio - Via Brodolini, 10 - 81034 S. 
Cipriano D'Aversa (CE) - Tel 081/8924578 

Cedo, cambio programmi di tutti I tipi: giochi, gestionali, utility 
per Commodore 64. Ne posseggo di fantastici Inviami la tua 
lista ed io ti invierò la mia gratuitamente. Scrivere a: Salvatore 
Castrignanò - Via Raffaello Sanzio. 17 - 73018 Squinzano (LE) 

Cerco per Commodore 64 programma su cassetta per gestio¬ 
ne stampante. Giacomo Martmis - Via Moimacco, 19 - 33100 
Udine - Tel. 0432/481454 

Cambio qualsiasi tipo di programma su cassetta per Commo¬ 
dore 64. Tommaso Rossetti - Via Carducci. 21 - 36015 Schio 
(VI) - Tel 0445/20589_ 

Vendo C64. drive 1541. stampante VC1515. registratore C2N. 
assieme o separati. Software 64 in omaggio a chi acquista tutto. 
Telefonare ore serali. Fernando Corengia - Piazza Frattini. 15 - 
20146 Milano - Tel. 02/471360 

Vendo, cambio, compro programmi di ogni genere per 
Commodore 64 Inviare lista dettagliata, rispondo a tutti 
Matteo Doveri • Via 1 Maggio. 15 - 56025 Pontedera (PI) 

- Tel 0587/212154 

Cerco utenti Commodore 64 per vendita e acquisto programmi 
vari. Mi interessa programma oroscopo scientifico inoltre ac¬ 
quisto programmi inerenti la ristorazione, solo su disco. Livio 
Modena - Sciacca Mare Alberghi - 92019 Sciacca (AG) Tel. - 
0 925/93000 __ 

Cambio, vendo giochi e Utilities per Commodore 64 Vasto 
catalogo! Richiedete la lista, vendo a prezzi stracciati (a partire 
da Lit 2000). Paolo Gallo - Via Garibaldi. 83 - 96014 Fioridia 
(SR) - Tel. 941056 

Scambio software su disco per CBM 64 Dispongo di circa 250 
programmi (sopratutto giochi). Inviate la vostra lista ed io vi 
invierò la mia a stretto giro di posta. Alberto Borgmi - Via San 
Rocco. 34 - 21013 Gallarate (VA) - Tel. 0331/795770 

Cambio, vendo per CBM 64 300 programmi a buon prezzo, da 
un minimo di Lit. 10000 ad un massimo di Lit. 20000 Esempi: 
Summer games (Olimpiadi con 8 sport e 18 inni nazionali). 
Sintetizzatore vocale (il 64 parla) Carlo Borreo - Via Beno. 34 - 
18100 Imperia - Tel. 0183/21833 

Vendo per C64 cassetta contenente 6 giochi in L.M. (Pole 
position, Calcio. Kong) a lit. 30000 15 giochi a Lit. 50000 agli 
acquirenti in omaggio il Turbo tape. Scrivere o telefonare ore 
pasti. Paolo Pavoni - Via Battisti. 111 - 64011 Alba Adriatica 
(TE) - Tel. 0861/72191 

Per Commodore 64 cambio/vendo programmi, vasta scelta 
giochi, utility, gestionali. Sono particolarmente interessato ai 
programmi di simulazione e utility. Inviare lista, che ricambierò 
con la mia. o telefonare. Roberto Cavataio - Via Agnelli. 1 - 
10070 Robassomero (TO) - Tel. 011/9235700 

Cambio, vendo programmi per CBM 64 su disco, sia utility che 
games. Oltre 600 programmi. Si offre massima serietà ed one¬ 
stà. Rispondo a tutti. Inviatemi la vostra lista o richiedetemi la 
mia telefonando ore pasti. Daniele Garosi - Via Martiri di Belfio¬ 
re. 22 - 46026 Quistello Mantova (MN) - Tel. 0376/61835 

Vendo o cambio fantastici giochi per VIC 20 inespanso Per 
informazioni telefonare dopo le 20 a: Marco Rinaudo - Via S. 
Paolino. 2 - 98057 Milazzo - Tel. 090/923938 

Cambio, vendo programmi di ogni genere per C64. Posseggo 
Clone Machine. Summer Games. Chess 7.0 e tanti altri a prezzi 
bassissimi. Telefonate o scrivete. Antonino Baglione - Via Cor¬ 
rado Lancia. 41 - 90138 Palermo - Tel 091/590494 

Occasione dell'anno per i possessori di VIC 20 e C64: vendo in 
blocco I migliori videogames (98) della mia raccolta al vergo¬ 
gnoso prezzo di Lit 50000. Per C64 i prezzi sono irrisori! Giulio 
Ravagm - Casella postale 224 - 38068 Rovereto (TN) - Tel. 
0464/34475 

Vendo, cambio, compro programmi per CBM 64 Ne possiedo 
circa 200. Ho anche molti linguaggi e utility tutti in L.M. L’an¬ 
nuncio è sempre valido. Mandare o richiedere lista a: Fabio 
Piazza - Via Sciesa. 22 - 10078 Venaria (TO) - Tel 011 /491513 


Per CBM 64cambio. vendo a Lit. 30000 cadauno giochi e utility 
eccezionali, che in Italia non sono ancora in commercio Vendo 
in blocco a Lit 200000. tra la cinquantina di programmi: "Pole 
position". "Sintetizzatore vocale" e "One on one" Donato Mele 

- Corso Roma. 123 - 73 014 Gallipoli (LE) - Tel. 473075 

Compro per C64 programmi di qualsiasi tipo su cassetta, an¬ 
che solo listati. Angelo Osvidi - Via Emanuele. 2 - 20010 Benate 
Ticino (MI) 

Causa doppio regalo vendo C64 nuovo a Lit. 625000 più 2 
joystick a tre fuochi a Lit 40000. Telefonate o scrivete. Maria 
Luisa Brambillasca - Via Gramsci. 23/2 - 20041 Agrate Brianza 
(MI) - Tel. 039/650959 (ore ufficio)_ 

Per Commodore 64 vendo oltre 350 programmi in cassette da 
20 a scelta a Lit. 50000 Richiedete la lista, invio contrassegno 
in tutta Italia. Ultime novità anche su disco. Eliseo Mastrangelo 

- Via Casilma. 1641 - 00133 Roma - Tel 06/6151345 

Cambio e vendo programmi per CBM 64. tutti a modico prezzo, 
su disco o su cassetta. Giovanni De Cecco - Via Caprussi, 18 • 
70100 Bari - Tel 080/333362__ 

Acquisto CBM 64 funzionante, massimo Lit. 400000 Sinclair 
Spectrum 2 o 3 versione, massimo Lit. 200000 Vincenzo Mam¬ 
mana - Via G. La Loggia. 192 - 90100 Palermo 
Vendo per Commodore 64 programmi come: Simon’s BASIC. 
Sam. Donkey Kong, Falcon patrol e moltissimi altri, tutto a Lit 
10000 cadauno. Inoltre permuto 30 programmi bellissimi con 
penna ottica. Luciano Pagnm - Castello 2084 - 30122 Venezia - 
Tel. 041 / 700486 _ 

Cambio programmi su nastro per VIC 20 alla pan oppure con¬ 
tro rimborso spese. Assicuro risposta a tutti Annuncio sempre 
valido. Alvaro Ceccarini - Via Di Vittorio. 10 - 58022 Follonica 
(GR) - Tel. 0566/43248 _ 

Cambio, vendo giochi e utility per CBM 64 su floppy disk. 
Chiedo e offro massima serietà ed onestà. Per informazioni 
rivolgersi a: Claudio Butturini - Via Blumenstihl, 45 - 00135 
Roma - Tel 06/3496514 

Vendo per Commodore 64 I migliori giochi e Utilities estistenti 
su nastro o disco (Hobbit, Zaxxon, O Beri. Koala pamter. ecc.)a 
prezzi bassi accetto anche scambi. Per ordini o scambio liste 
scrivere a: Michele Masiero - Via Bracciano. 26 - 35030 Selvaz- 
zano (PD) - Tel. 049/637540 __ 

Per CBM 64 vendo “Flight simulator II" della Sublogic. Scrive¬ 
re o telefonare a: Luca Grespan - Via B. Marcello. 20-31100 
Treviso - Tel. 0422/20668 

Per CBM 64 vendo 1 videogames a scelta piu 1 floppy disk a Ut. 
20000 e altro software a prezzi bassissimi. Maurizio Coccorese 

- Via Gentile. 108/D - 79126 Bari - Tel.080/491374 

Vendo e cambio stupendo software per CBM 64. varie occasio¬ 
ni. Dispongo di tutte le ultime novità USA. prezzo dei programmi 
Ut. 500 - 5000 l'uno. Cesare Polenghl - Via Sallustio. 1 - 20135 
Milano - Tel. 02/581047 

Amico Vichingo che cerchi del software a prezzi stracciatissi¬ 
mi per il tuo sistema chiedi informazioni al VIC user club di 
Napoli Con serietà ed impegno risponderemo a tutti. Scrivete¬ 
ci 1 Antonello D'Ottavio - Via D Fontana 27 Isolato 13 - 80128 

Napoli - Tel 460254 _ 

Cambio oltre 140 programmi su nastro e su disco per Commo¬ 
dore 64. sia giochi che utility Richiedere e inviare lista a 
Cesare Boncompagni - Via Piave. 22 - 57013 Rosignano Sol- 
vay (LI) - Tel 0586/761577 _ _ 

64 Commodore Club cambia, vende, compra software per 
CBM 64 Grazie a parenti americani, disponiamo dei migliori 
programmi applicative e ricreativi e tutte le ultime novità USA 
Per saperne di più: Giuseppe Sciotti - Via Vighizzolo. 23 - 
25018 Montichiari (BS) 

Vendo programmi su cassetta per home computer VIC 20 
Vendo a chi interessa il listato BASIC Telefonare o scrivere per 
accordi Gianni Gaudmo - Via Graglia. 18 - 10136 Tonno - Tel 
011/352830 __ 

Vendo programmi per C64 a prezzi molto interessanti Fra i 
tanti posseggo Simon’s BASIC (con istruzioni). Easy Script. 
Magic Desk e molti giochi Per informazioni telefonare a Marco 
Nobilio - Via Da Vinci. 16 - Sesto S. Giovanni (MI) - Tel 2402905 

Compro, cambio, vendo programmi per VIC 20 Mi interessano 
soprattutto giochi espansi a 8/16 Kbyte in L M Scrivetemi ed 
eventualmente inviatemi al vostra lista. Gaetano Stornante - Via 
Epicarmo. 84 • 96011 Augusta (SR) - Tel 093W974902 

VIC 20 software bank • Inviando una vostra cassetta giochi 
potete averne altrettanti in cambio senza spese. Listino gratuito 
a richiesta franco risposta. Annuncio sempre valido Alvaro 
Ceccanm - Via Di Vittorio. 10 - 58022 Follonica (GR) Tel 
0566/43248 

Vendo printer-plotter 1520 per Commodore 64. o cambio con 
drive Vendo inoltre VIC 20 con varie cartucce giochi e 2 padd- 
les. Il tutto nuovo di zecca. Rispettivamente Lit 320000 e Lit 
180000 Domenico Finucci - Via Sacro Cuore. 20 - 55051 Barga 
(LU) - Tel 0583/73206 837821 _ 

Dispongo di centinaia di programmi per CBM 64 Giochi origi¬ 
nali americani, utilità, gestionali, ecc. per lutti i gusti Paolo 
Bigon - Via S Marco. 177/A 35020 Padova - TEI 049/629117 


Cambio piu di 100 programmi in LM per CBM 64 Se siete 
interessati scrivete, garantisco risposta a tutti e scambi vantag¬ 
giosi Massimo Savoia - Via Sant'Anna. 11 - 20045 Besana 
finanza - Tel 0362/940247 

Vendo, cambio software per CBM 64 su nastroo disco Dispon¬ 
go di 300 programmi in LM Inviate le vostre liste a: Francesco 
Beccari - Via Marconi. 5 - 36054 Montebello (VI) - TEI. 
0444/749011 

Cambio, vendo oltre 300 utility game per CBM 64. preferibil¬ 
mente Milano o limitrofi (possiedo numerosi manuali) Marco 
Bombonato - Via Nino Bixio. 27 - 20129 Milano - Tel 224196 

Vendo, cambio eccezionali giochi per Commodore 64 a prezzi 
incredibilmente stracciati (min Lit. 1000. max. lit. 5000) Telefo¬ 
nare per richiedere lista oppure per scambio inviare le vostre 
Domenico Gallò • Contrada Guido, 36 • 88029 Serra S Bruno 
(CZ) - Tel 0963/71210 

Vendo, cambio programma per far parlare II Commodore 64 

Turbo tape per velocizzare le operazioni su nastro e Simon 
BASIC Posseggo inoltre molti programmi di utility, grafica e 
tool-kit Tutto su cassetta Telefonare alla sera. Giuseppe Mul¬ 
tar) Via Alimonda. 1 • 10152 Torino • Tel 011/279601 

Compro, cambio per C64 e VIC 20 giochi In L.M., programmi 
gestionali e utility Scrivere o telefonare a Commodore Club - 
Via Filisto. 37 - 96100 Siracusa - Tel 0931/35866 

Per Commodore 64 vendo, cambio software di ogni genere a 
poco prezzo, solo in linguaggio macchina Scrivere o telefo¬ 
nare a Simone Borgheresi - Via Montesanto. 17 - 53036 Poggi- 
bonsi (SI) - Tel. 0577/937336 

Vendo, compro, cambio software per C64 - oltre 300 program¬ 
mi su disco o cassetta Annuncio sempre valido, inviare liste di 
giochi e utility o telefonare ore pasti Loreno Parole - Via P 
Neruda. 4 - 27028 S Martino Siccomario (PV) - Tel 
0382/25086 498757 

Cerco espansione 16 Kbyte per VIC 20 a prezzo vantaggioso 
Compro anche listati di programmi per VIC 20 sia da riviste che 
da stampanti. Scrivere o telefonate a Mauro Malvasi - Via 
Stazione. 51/A - 10060 None (TO) - Tel 011/9865545 

Cambio per VIC 20 cassetta con 50 programmi fra giochi e utili 
tra cui Totocalcio. Labirinto 3D. ecc. con espansione 8 o 16 
Kbyte funzionanti Inviate l'espansione e subito sarà inviata la 
cassetta Damele Damiano - Via Trento e Trieste. 109 - 66036 
Orsogna (CH) - TeL0871 '86612_ 

Cambio e vendo più di 110 giochi per CBM 64 a prezzi molto 
interessanti solo nella regione Veneto Telefonare dalle ore 10 
alle 11.30 Nicola Tonetto - 35100 Padova - Tel 049/27167 

Per CBM 64 cambio, vendo software Offro 5 programmi a 
scelta su circa 200 (tra i migliori in circolazione) a Lit 18000. 
comprese cassetta e spese postali Lucio Cuomo - Via A De 
Gaspen - 84018 Scafati (SA) - Tel 081/8639480 

Vendo VIC 20 più manuale più libro con 30 giochi più memoria 
16 Kbyte più 6 cassette di giochi a Lit. 350000 Al compratore 
regalo 50 listati di giochi Giacomo Chiorino • Via Prealpi. 19 - 
13056 Occhieppo Superiore (VC) - Tel 015/590184 

Compro, vendo, cambio programmi per Commodore 64 Vendo 
anche videogioco a colori della Tele Partner a Lit. 40000. 10 
giochi, usato pochissimo e perfettamente funzionante Michele 
Petracca • Via Donatello. 12 - 35027 Nonenta Padovana (PD) - 
Tel 049/627164 

Vendo modem RTTY per CBM 64 e/o VIC 20. che ti permetterà 
di comunicare con altri utenti Disponibile anche ampia scelta 
di software per RTX ASCII/Sadoul a vari livelli per CBM 64 e/o 
VIC 20. Stefano Albonetti - Via Don Minzom, 3 - 47100 Forlì 

Vendo e cambio giochi e utility per CBM 64. tutti i più belli a 
prezzi bassissimi, esempio: The hobbit, Summer Games, Pole 
Position. BC. Burgertime. a sole Lit 8000: Simon's BASIC piu 
manuale italiano Stefano Di Paola - Via Tazio Nuvolari, 205 - 
00142 Roma - Tel 5036108 

Cerco istruzioni per seguenti programmi del CBM 64 Midway • 
Combat leader - Andromeda - Planetmmers - Ten little mdians 
Compro, cambio, vendo software su cassetta per Commodore 
64 Rispondo a tutti. Gianni Dal Zotto - Via Garibaldi. 10- 17027 
Pietra Ligure 

Vendiamo software per VIC 20 e CBM 64 (oltre 120 programmi) 
preferibilmente in zona Bologna Massima serietà Scrivete o 
meglio telefonate a Sandro e Andrea Cavallari - Via Rovighi. 1 • 
40141 Bologna - Tel 051/440717 

Interfaccia per qualsiasi registratore per C64 VIC 20 vendo a 
Lit 35000 contrassegno piu spese postali con garanzia massi¬ 
ma celerità Romano Paolini - Via F M Briganti. 307 - 80144 
Napoli 


Possessore di Commodore 64 vende, cambia circa 450 pro¬ 
grammi su cassetta o su disco. Vasta gamma di games ed 
Utilities Tratta solo con la Lombardia. Cesare Gianazza - Via 
Spinelli. 17 • 20023 Cerro Maggio re (MI) - Tel 0331/519892 

Vendo 70 ottimi programmi per VIC 20 come Totocalcio. Biorit¬ 
mi. Crazy kong. Mistery House, ecc in blocco su cassetta 
all'eccezionale prezzo di Lit 29000 più spese di spedizione 
Garanzia assoluta Armando Mazza - Via Settembrini. 96 - 
70053 Canosa (BA) - Tel 0883/64050 
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Vendo, scambio, compro progrommi di giochi e Utilities per il 
C64 a prezzi bassissimi, grandissimo varietà e serietà. Per 
Informazioni oonvoro o tolofonaroln oro oorali a: Mauro Tonoli 
Via Canzl. 12 • 29100 Piacenza • Tel 0523/61067 _ 

Vendo a prezzi stracciati oltre 200 programmi per CBM 64 
Accetto anche scambi Scrivere o telefonare a: Luca Tamburro 
• Via Mazzini. 67 • 80045 Pompei (NA) - Tel 061/8631918 

Cerco per C64 il programma Easy Script su disco! Inviatemi le 
vostre liste e ci accorderemo al meglio Possiedo molto softwa¬ 
re! Alfonso Torro - Via Salvatore di Giacomo. 15 - 80053 Castel- 
lamare di Stabia (NA) 

Vendo numerosi giochi e utility per VlC 20 su cassetta. Vendo 
anche listati non solo per VlC 20 Chiedere lista scrivendo a 
Carlo Tumiatli - Via F M Mantovani. 135/5 • 20099 Sesto S 
Giovanni (MI) • Tel 02/2407989 

Vendo per Commodore 64 Easy Script su disco con istruzioni 
in italiano a Lit. 40000 Scrivere per accordi Carmela Vittoria • 
Via G Piazzi. 390 • 80137 Napoli 

Vendo corso BASIC per CBM 64. originale Commodore, intera¬ 
mente in italiano, comprendente piu 2 cassette, il tutto a Lit 
40000 Ivano Ursmi - Viale J F Kennedy. 96 - 65100 Pescara - 
Tel 0 85/76049 _ 

Causa passaggio a sistema superiore vendo In blocco tutti i 
miei programmi per CBM 64 (sono Circa 40 di ogni genere, 
quasi tutti in linguaggio rnaccmne) per Lit 50000 Maruzza 
Umiltà - Via La Masa. 37 - 90100 Palermo 

Vendo, compro, cambio giochi e utility per Commodore 64 
Disponibilità di oltre 600 programmi, inviare liste o richieste 
oppure telefonare ore pasti Mauro Volantini - Via Casella Po¬ 
stale 130 - 48100 Ravenna Tel 0544/402332 

Cambio, vendo 350 programmi Commodore 64 Contano pre¬ 
feribilmente possessori pan numero programmi Meglio se su 
disco Rispondo solo a richieste seno accetto visite Gianni 
Vezzani - Viale Umberto I. 39 • 42100 REggio Emilia - Tel 
0522/23072 

Cerco utenti del VlC 20 per corrispondere o per scambiare 
programmi, ne posseggo di magnifici, e ho anche la super 
oxpandert Vi aspetto, scrivetemi o telefonatemi ore serali Sal¬ 
ve' Antonio Vitale - Via Michelo Tuona. 61 • 90129 Palermo - 
Tel 091/428273 

Vendo/cambio per C64 centinaia di programmi Ho di tutto dai 
giochi in L M ai compilatori, dai programmi gestionali ai lin¬ 
guaggi ecc. ecc Scrivere (se interessati) por la lista o telefonate 
ore 14-15 Paolo Vergom • Via Appia, 6906100 Perugia • Tel 

075/66918 _ 

Cambio/vendo circa 200 programmi per il C64 Dispongo di 
circa 1000 programmi per il VlC 20 Per informazioni scrivere o 
telefonarea Lionello Zanella - Via Virgilio. 21 - 74025 Manna di 
Gmosa (TA) - Tel 099/627090 _ __ 

Cambio programmi di qualunque genere per CBM 64 Ne pos¬ 
seggo moltissimi, inviate lista o telefonate Roberto Zuccaretti - 
Via Taraschi. 13 64020 S Atto (TE) - TEI 0861/587478 

Vendo per VlC 20 e CBM 64 bellissimi giochi e Utilities In L.M. a 
prezzi bassissimi Una cassetta 20 programmi in L M per VlC 
20 Lit 30000 Scrivete, rispondo a tutti oppure telefonate dopo 
le 21 Carlo Zanim - Largo Paolo Serpi. 17 • 26100 Cremona - 
Tel 0372/27498 

Vendo per VlC 20 listali biotto validi Slalom. Briscola. VlC 
invader. Otheilo. Missione UFO. Boss del petrolio II tutto a Lit 
5000 Accetto scambi Danilo Zambianchi • Via Buonarroti 152 
20035 L.ssone (MI) • Tel 460958 

Cambio/vendo programmi per VlC 20 a prezzi modici Ampia 
scelta tra circa 300 programmi Cento giochi a Ut 50000 Ven¬ 
do anche cartndge Sargon II, Chess a Lit 20000 Scrivetemi o 
telefonatemi' Massimo Zucchetti - Via Lungo Leno Destro. 21 - 
38068 Rovereto (TN) - Tel. 33645 

Acijuir.ii) per il VlC 20 espansioni di memoria 3 Kbyte supe 
r/expander e 16 Kbyte RAM solo se in ottimo stato e vere 
occasioni Sono inoltre interessato a qualsiasi tipo di software 
per questo computor Enrico Wuorich - Via Monte Rite, 10 - 
32040 Tai di Cadore (BL) 

Compro per CBM 64 Utilities e giochi su disco Spedire lista con 
prezzi a Felice Gargano • Via Vallone. 1 • 21016 Lumo (VA) 

Utenti di C64: scrivetemi e fondoremo un club con vasta biblio¬ 
teca di programmi disponibili .i lutti Massimo Orsi - Viale G 
Verdi. 12 • 2204 6 Monguzzo (CO) » Tel 03i /650085 

Cambio, vendo moltissimo software pe. CBM bt linguaggi, 
giochi, gestionali. Utilities, compilatori n molti altri su cassetta o 
disco inviaro listo a: Gianni Gnndolfo Viale Hanbury. 10/1 - 
17021 Alassio (SV) 


Vendo programmi per VlC 20 solo su nastro, anche espanso 
8-16 Kbyte. tra cui Bonzo. 40 colonne. Scacchi e tanti altri Per 
ncevere la lista scrivere o telefonare ore pasti Massimo Russo 
- Via Falena - 04100 Laima - Tel 0773/491872 

Cambio software per Commodore 64 Oltre 700 programmi dei 
quali 300 di giochi originali americani ed inglesi Scrivere e/o 
inviare lista o telefonare ore pasti Luca Simonellt • Via Leopar¬ 
di. 62 - 62010 Petr.olo (MC) • Tel 0733/55108 

Per Commodore 64 vendo 6 programmi su nastro (3D lime trek, 
Falcon patrol, Hungry Horace. Calcio. Siren City. Gndtrap) a Lit 
40000. escluse spese di spedizione Richiedere lista Rispondo 
a tutti. Massimo Sederi - Via Don Mmzoni. 72-45100 Rovigo 

Cambio software per CBM 64 Inviate lista, rispondo a tutti Ho 
più di 30 programmi in linguaggio macchina o il numero 
aumenta sempre Rati Schwarz - Via Crispi, 85 • 92026 Favara 
(AG) - Tel 092/45445 

Vendo VlC 20 piu manuale più registratore piu 22 magnifici 
giochi (Ratrace. Poker. Labirinto 3D. Frogger. Jupitor. Defen¬ 
der ecc ) Tutto in ottime condizioni a solo Li» 450000 Bruno 
Stazi - Via Rucellai. 82 • 00155 Roma (Tor Sapienza) * Tel 
, 06/2278469 _ 

Vendo, cambio vldeoglochl per VlC 20 (come Donkey Kong, 
Explorer. Pac-man.ecc ) Ne ho circa 50 su cassetta Invio lo 
lista a chi mi scrive o mi invia la sua. Scrivere o telefonare ore 
pasti a: Carlo Ruggiero - Via EpipoJi. 4 - 84100 Salerno - Tel 
089/272747 

Vendo software per CBM 64. gestionali. Data basai, disk copy 
ultra rapido, copia cartucce, linguaggi. grafica.games. scrivere 
o telefonare, annuncio sempre valido Saverio Pensabene 
Lungomare Colombo. 3544 - 90M9 Palermo - Tel 091/451425 

Vendo, cambio, compro giochi per CBM 64 Vorrei formare un 
Club Commodore 64 m zona Campania Cerco assolutamente 
gioco Olimpiade per 64 Scrivetemi presto Matteo Oliviero • Via 
Marconi. 62 - 80056 Ercolano (NA) - Tel 7393829 

Per C64 vendo 50 giochi L»t 50000 supergiochi Lit 15000 
Procuro inoltre qualsiasi programma didattico, di gioco, o utility 
su richiesta Vendo programma unico di astrologia a Lll 50000 
Berlo Ambrosi - Via Brembo. 9 - 20100 Milano - Tet 
02/5896868_ 

Compro buoni programmi per VlC 20 su cassetta (giochi, didat 
tici. vane) a prezzi modici Inviatemi le vostre listo' Scrivetemi' Vi 
aspetto tutti' Luca Lovagmm - Via Lungomare Marconi. 19 - 
73014 Gattipoli (LE)_ 

Vendo, cambio per CBM 64 programmi su cassetta a prezzi 
imbattibili m linguaggio macchina Richiedete la lista gratuita 
ed eventualmente inviate la vostra Luca Gandola - Corso Mar¬ 
coni. 412 - 18038 Sanremo (IM) - Tel 0184/62046 
Vendo, cambio, compro programmi per VlC 20 Ogni program¬ 
ma Lit 8000 comprese spese di spedizione Cerco Supor ex 
pander a buon prezzo Grazie a quanti risponderanno Giovan¬ 
ni Romano - Via Umberto. 266 - 98035 Giardini Noxos (ME) • 
Tel 0942/51315 _ 

Cambio, vendo programmi per il CBM 64 Si garantisco il totale 
funzionamento di oltre 500 programmi tutti in L M Offrensi 
massima serietà ed onestà Inviatemi vostra luta o contattatemi 
faremo prima Damele Garosi - Via Martin di Belfiore. 22 - 
46026 Quistello (MN) • Tel 0376/618354 
Per Commodore 64 dispongo di circa 300 programmi da scam • 
biare/vendere Richiedere lista o inviate le vostre Per contatti 
scrivere o telefonare a Silvio Panetta - Via Matilde Serao 4 
10141 Torino - Tei 373647 _ 

Disponibilità immediata di tulli I programmi Commodore 64 e 
Spectrum Ottimi prezzi • sconti pei quantitativi Gestionali 
giochi, tutti i programmi sono duplicabili su disco o cassetta 
Richiedere elenco a Giordano Bifolchi Via Pienza. 17 - 53045 
Montepulciano (SI) - Tel 0578/757905 

Ca m bio tra o do programmi in BASIC c in L M per VlC 20 
qualsiasi configurazione di memoria (ecc 32 Kbyte) Vendo 
listati anche per atlri home computer Nicola Portulano • Via S 
Francesco. 185 - 72021 Francatila Fontana (8R) - Tel 
0831/941972_ 

Cambio eccezionali programmi per Commodore 64 Inviare 
lista Rispondo a tutti Andrea Fassi - Via Pianala. S • 16035 
Rapallo (GE) - Tel 0185/56654 

Per C64 cerco paddle In cambio offro giochi fino ad un massi 
mo di 20(lnt Soccer Pole posilion Burgertime • Donkey kong 
- Fort Apocalypse - Le Mans - Scacchi - Ski - Skramble 
Hexpert e altri 40 su cassetta) - Danilo Di Nardo - Via Monte 
Velino. 15-67100 L'Aquila - Tel 61633 

Contattiamo utenti o club Commodore 64 per scambio di pro¬ 
grammi di utilità o giochi in linguaggio macchina Otlimn grafi¬ 
ca Possibilmente a Cagliari e dintorni Giuseppe Moi Via 
Vittorio Veneto. 25 - 09047 Selargius (CA) - Tel 842824 

Vendo programmi per C64 Invio lista gratuita su rtchiosla 
Accetto anche scambi Inviare lista Carlo Sciascia • Via Ovada 
69/11 - 15067 Novi Ligure (AL) - Tel 0143/78835 

Per Commodore 64 vendo, cambio programmi su disco Pos¬ 
seggo giochi e utility Telefonare o inviare lista Riccardo De 
Giuli - Str Valpiana. 59/2 - 10132 Tonno • Tel 011/890513 


Cambio giochi per CBM 64 Ne ho circa 122. tutti mLM Sono 
disposto a trattare solo con la zona di Bah Scrivetemi e telefo¬ 
natemi Francesco Minmm Via Lucarelli. 16 - 70100 Bari - Tei 
080/ 411533__ 

Vendo CBM 64 piu Datasene C2N più raccolta articoli dedicati 
e manuale di riferimento programmatore Telefonare ore ufficio 
allo 035/883107 ore pasti allo 02/9097650 Fabrizio Bestett- - 
Via G Verdi. 6 - 24040 Canonica d'Adda (BG) - Tel 02/9007650 

Vendo espansione 8 Kbyle RAM per VlC 20 usata da tre mesi 
ma in buone condizioni, a Lit 60000 A chi interessa, vendo 
qiocht e utility su cassena per VlC 20 Invio liste a tutti. Angelo 
Anaudo - Piazza De Angeli. 2 - 20146 Milano - Tel 02/465780 

Vendo per Commodore 64 a LiL 15000 l'uno Simon's BASIC. 
Turbo tape, 80 colonne. Calcio. Sci, Tennis. Automobilismo 
Tank, Pac man 3D. Atzec Tomb. Piper Ime, Puzzle. Falcon 
patrol, Roller Defender. Scramble. All matnx. Dala Base. Music 
master e altri (specificare se richiesti con Turbo tape), Vendo a 
Lit 50000 con 33 programmi per TI 99/4A (poco piu di Lit 1500 
l'uno!) Davide Rolando - Via Ottaviano. 6/6 - 17100 Savona • 
Tel. 019/26949_ 

Vendo per CBM 64 quattro floppy disk contenenti Compilatore 
Pelspeed a Lit 750000. Magic Desk ecc. a Lit 100000 Simons' 
BASIC, backup. ecc a Ut 75000 floppy interamente occupalo 
da giochi tipo bar a Lit. 80000 (tutti i prezzi sono trattabili entro 
un certo limite) Scrivere a Pierangelo Patrizi Via Del Mare. 47 - 
73l00Lecce Tel 0832/52891_ 

Cambio per CBM 64 eccezionali videogame! in L.M (QfSfid 
master. Fort Apocalypse. Calcio) e numerose Utilities Cerco 
inoltre utenti zona Bari per scambio idee ed esperienze Inviare 
le liste dei programmi Giuseppe Calamita • Via Bovio. 9 70100 
Bari - Tel 080/234769 

Vendo per CBM 64 lotorivelatore collegabile alla porta (Oysttck 
e controllabile tramite BASIC per realizzare allarmi, contapez- 
ii. contapersona, barriere ottiche ecc Solo Lit 20000* Luciano 
Antomnucci - Via Goldoni. 7 - 05100 Terni - Tel 0744/421274 

Per CBM 64 vendo centinaia di programmi in L.M a prezzi 
incredibili Zaxxon Lit 50000. Aerobics Lit 12000. Summer 
games ut 15000 e tanti altri a Lit 3000 (Blue Max. Aztec eh. 
Suicide Stnke. Chones's) Tower su disco o nastro Davide 
Fugazzola - Via D'Atviano. 2 - 20146 Milano Tel 02/4229466 

Cambio su cassetta programmi per CBM 64 Fate richiesta 
spedendo la vostra lista, vi spedirò subito « programmi mancan • 
ti attendendo poi quelli da me richiesti Maurizio Castaido • Via 
Guerrina. 22 - 45027 Trecenta (RO) 

Compro software per Commodore 64 possibilmente nella pro¬ 
vincia di Venezia, compro solo in cassetta o cartuccia o lesti di 
programmi esteri, cerco anche club Commodore, sempre di 
questa provincia. Roberto Tomai - Viale S Remo. 35/8 30038 
Spme.i (VE) Tel 996230 

Cerco manuale di istruzioni di Screen Graphic e Sani Recttei 
per CBM 64 Giuseppe Coffano - Via Orazio Fiacco. 5 • 10024 
Moncalieri (TO) - Tel 011/645923 

Programmatore vende software (giochi, gestionali come busta 
paga, fatturazione, ecc.) per CBM 64. VlC 20. MIO. M20, Spec¬ 
trum. TI Cassetta con 15 programmi Lit 15000 Luana Pelligra • 
Via T Fazzello. 5/1 - 96017 Noto (SR) - Tel 0931/838458 

Vendo Commodore VlC 20 più numerosi giochi su cassetta 
Telefonare ore pasti Luca Catellam • Via Polesine. 34 - 37134 
Verona • Tel045/581318 

Cambio, vendo software per CBM 64 Posseggo circa 100 
programmi tra cui molte utility. I programmi sono disponibili su 
cassetta o disco Cerco ottimi programmi di magazzino, conta • 
txktà ed utility Roberto improta - Via Recanati. 27 - 80046 
S Giorgio a Cremano (NA) 

Per VlC 20 vendo cartucce "Supersmath" e "Sargon II Chess” 
come nuove a Lit 30000 cadauna. Antonio Dotale - Via Antisto- 
ne, 25 - 00124 Roma - Tel 06/6092027 

Vendo Commodore VlC 20 con relativi accessori più espansio¬ 
ne 16 Kbyle piu registratore, più manuale BASIC p<u moltissimi 
programmi (valore di mercato circa Ut 600000) a sole Ut 
400000 Damte Forcillo - Via Italia. 12 - 20020 Lainate (MI) - Tel 
9374148 

Hai un VlC 20 o un C64 Cogli al balzo questa incredibile offerta 
per VlC 20 98 videogame! (il meglio dei miei 300 programmi) a 
sole Lit 50000. incredibile' Per C64 1 prezzi sono da liquidazio¬ 
ne Giulio Ravagm • Casella Postale 224 - 38068 Rovereto (TN) 

- Tel 0464/34475 

Per CBM 64 cambio, vendo programmi di ogni genere a prezzi 
bassissimi Maurizio Chiavarofi - Via Cadorna. 23 • 65100 Pe- 
scara - Tel. 72683_________ 

Vendo o cambio programmi per VlC 20 e CBM 64 in L M. 
Disponibili per II VlC 20 giochi come Gridrunner, Meteor sho- 
wer ecc Disponibili invece per CBM 64 giochi come Zaxxon. 
Pole position. ecc. Marco Caroni - Via Gasparri. 80 - 00168 
Roma - Tel 06/6285661 

Vendo e cambio per C64 programmi utility e molti videogamet 
di cui tantissimi recenti come Olimpiadi. Beachhead e tanti altri 
Inviare vostra lista per accordi oppure telefonare Dispongo di 
programma di radioamatori. Gianfranco Cucchi • Via Monte- 
notte. 121/R - 17100 Savona - Tel 019/21954 
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Cerco listati per Commodore 64 di grafica o videogames. Tele¬ 
fonare ore pasti o inviare listino prezzi ed elenco dei listati 
Mimmo Caduca - Viale Llncol 154 Poi 8 81100 Caserta Toi 
442013 _ 

Per C64 cambio, vendo software su disco e su cassetta soprat¬ 
tutto in zone Livorno e Modena Sonia Fraddanni - Corso 
Mazzini. 174 - 57100 Livorno - Tel. 0586/31212 

“I VlCklnghl", Il primo club per possessori di VIC 20 a Parma e 
d'intorni, apre • battenti* * Per informazioni scrivere o telefonare 
ore pasti a: Borsoni Danilo Via Sanguinarti 1 • 43100 Parma • 
Tel 91747 _ 

Per C64 vendo, cambio programmi (Turbo tape. Simon's. Com¬ 
pilatore. Easy Script. The last one). giochi (Q Bert. Pacman. 
Frogger, Soccer) ed altri tutti in L.M Garantita serietà Per lista 
telefonare ore pasti Maurizio Bove • Via Gelsi. 122 - 84014 
Nocera Inferiore (SA) * Tel 081Z922976 

Per C64 vendo, cambio programmi In L.M. Grandmaster 64. 
Calcio 3D. Skyrace. Falcon patroi. ecc) Cerco Simon s BASIC 
su cassetta Telefonare ore pasti Marco De Giosa - Via Magna 
Grecia. 81 Z/2 - 7Q1QQ Bari - Tel 080/585585 

Vendo per VIC 20. numerosissimi programmi su cassetta a 
prezzi eccezionali, se siete interessati scrivetemi per ricevere 
la lista con i relativi prezzi Marcello Mazzolanl - Via Santerno 
(RA) - Tel 0544/417072 

Causa doppio regalo vendo Commodore 64 più drive 1541 più 
registratore 1530. tutto imballato piu tanto software Easy Script 
• 80 colonne - grafica statica • utilità Cedo tutto a Lil 1300000 
m contanti trattabili Telefonare ore pasti Fabio Fraternale-Via 
Venti, 10 - 61029 Urbino (PS) - Tel 0722/37576 

Vendo, cambio programmi per Commodore 64 Dispongo di 
Zaxxon • Manie minar • Turbo tape - Hunch back - Pole 
position • Dig dug e molti altri. Giommmola Giovanni • Via 
Vittorio Veneto. 14 - 22070 Appiano Gentile (CO) - Tel 933176 

Per C64 cambio, vendo oltre 600 programmi la maggior parte 
importati direttamente ed mediti per l'Italia Scrivere a Franco 
Fantom - P O Box 259 - 51100 Pistoia 

Vendo, cambio programmi per II C64. giochi in L M 
Screen graphics. Koala pamters con joystick Telefonare dalle 
ore 19.30 alle ore 20 30. Spedisco liste dei programmi a richie¬ 
sta. Franco Ferri • Via S. Lazzaro. 31 - 40068 S. Lazzaro di 
Savena(BO) - Tel 461504 


Sinclair 


Vendo programmi su cassetta per ZX Spectrum 16/48 Kbyte 
Vasto assortimento di software gestionale, utility, giochi, ecc 
Richiedere listino con prezzi. Inviare propria lista per scambi 
I Riccardo Beltramo - Corso Unione Sovietica, 169 • 10134 
Torino - Tel. 011/397718 

Vendo ZX81 16 Kbyte completo di: cavi, alimentatore. 2 casset¬ 
te originali inglesi (Flight simulator e Home improvement plan- 
ner). il tutto a Lit 160000 Telefonare ore pasti o scrivere Luigi 
Corazza - Via Cavallotti 49 - 27011 Beigioioso (PI) - Tel 
0382/969561 _ 

Occasione! Vendo Spectrum con espansione da 46 Kbyte 
ancora Imballato con manuale "Alla scoperta dello ZX Spec¬ 
trum" In italiano più divorai programmi a Ut 400000 trattabili 
Amerigo Sormam - Via Scipione Capece. 10/N • 80122 Napoli • 
Tel 081/658479 

Compro ZX61 piu registratore più alimentatore più cavo moni¬ 
tor piu manuale Tutto in ottime condizioni ad un prezzo molto 
basso Preferibilmente zona Napoli Antonio Basile - Via F De 
Grenet. 19 • 80124 Napoli • Tel 081/611562 

Vendo per ZX Spectrum oltre 100 programmi a Lit 5000 cadau¬ 
no. Marco Villani • Via del Borgo di S.Pietro. 97 -40126 Bologna 
• Tel 273066 

Vendo ed eventualmente cambio motti programmi per ZX 
Spectrum a prezzi veramente bassi Qualche esempio: Pedro. 
Safari Rapedes. Stonkers e tantissimi altri Vendo cambio an¬ 
che programmi per Commodore 64 su cassetta o disco Stefa¬ 
no Calcatela • Via Marconi. 34/2 • 40122 Bologna • Tel 
051/521063 


Vendo ZX81 piu alimentatore p«u cavetti piu 16 Kbyte con 
manuale inglese e italiano più "66 programmi per ZX81 ”. il tutto 
in imballo originale a Lit 150000 Alberto Tarascom - Via Pro¬ 
vinciale. 175 - 43031 Baganzova(PR) - Tel 0521/601440 

Cambio programmi per ZX Spectrum Dispongo di decine di 
programmi di ogni tipo Fabio Giovannoni - Via Votta Le Croci. 4 
- 50010 Olmo/Caldine (FI) - Tel 055/548941 

Vendo traduzione Italiana manuale The hobblt (Lil 10000) e 
Voice Chete (Lit 5000) Inviare denaro anticipato m busta chiu¬ 
sa (Spectrum 48Kbyte) Mauro D'Orazi - C P 24 • 41012 Carpi 
(MO)_ 

Vendo programmi per ZX Spectrum. Sono i migliori m circola¬ 
zione a prezzi bassissimi Scrivetemi e vi invierò il listino cosi vi 
farete un’idea, oppure telefonate Marisa Banchi • Via Di Tiglio. 
15 S. Filippo • 55100 Lucca • Tel 0583/950688 
Vendo programmi per ZX Spectrum: Ometron - Cavern Fighter 

• Detective - Tutankhamom - Androtd 2 - Hawks - Gotha • 
Digger Dan • Alchemist e molti altri Catalogoa richiesta Stefa¬ 
no Nocilli - Via Tuscofana 224 - 00181 Roma 

Vendo I migliori programmi per ZX Spectrum a prezzi ridotta¬ 
mi Vincenzo Di Dieco - Via Busento. 11 • 87012 Castrovillan 
(CS)- Tel 0981/27253_ 

Vendo, cambio programmi per ZX Spectrum Vastissima scelta 
(oltre 450 programmi) o prezzi incredibili (Lit 4000 cad per 
qualsiasi programma) Chiedi il listino gratuito anche telefoni¬ 
camente Mario Bontempi - Via Valle. 7 - 25087 Salò (BS) - Tel 
0365/40637_ 

Sei un Sinclair user? Allora sei dei nostri Slamo del “Sinclair 
Usare Roma Nord" Se vuoi saperne di più scrivi o telefona, se 
non altro parlerai con un smclarista! Alberto Martini • Via Della 
Mandola, 171 - 00135 Roma - Tel 06/3287436 

Cambio programmi per Spectrum 16/48 Kbyte Rispondo a tutti 
con rapidità Enzo Bon - Via D. Loschi. 11/A • 31100 Treviso - 
Tel 0422/66298 _____ 

Cambio o vendo programmi per Spectrum. molti con traduzioni 
in italiano de> manuali Richiedere lista I programmi disponibili 
sono circa 300 m continuo aumento. Eventualmente cedo solo 
le traduzioni. Schmuckher Alberto - Corso Tonno. 26/14 - 
16129 Genova - Tel 010/584292 

Qualificato In "computar grafica" esegue programmi pubblici¬ 
tari su ordinazione per esposizioni o vetrine, per ZX Spectrum 
Scrivere per preventivi o accordi dimostrativi Prezzi modoci 
Antonio Borre»! - Corso Regina Margherita. 110 • 10152Tonno 

• Tel 011/231859 


Vendo eccezionale programma per ZX Spectrum 16 Kbyte 
progetto di diffusori acustici sos. pneumatica e bass-reflex 
secondo i parametri di Thiele e Smail Modificabile per altri pc 
Telefonare ore 19-22 Enzo La Rizza - Via Villa Scura. 11 - 
33080 Porcia (PN) • Tel 0434/920577_ 

Cerco periferiche per ZX Spectrum 48 Kbyte. in cambio offro 
Ciao P 1981 azzurro superaccessonato Scrivere a Francesco 
Rea - Via Sforza, 10 • 54031 Carrara - Tel 57087_ 

Svendo in blocco 2S0 programmi per Spectrum a sole Ut 
120000 Cassette, istruzioni e spese di spedizione in contrasse¬ 
gno comprese. Vendo in caso anche le singole cassette da 25 
programmi a Lit 20000 Marmo Mannanza • Via Rastrelli. 102 - 
00128 Roma - Tel 06/5203292 

Vendo Sinclair ZX81 piu 16 Kbyte piu libro "Guida allo ZX81" 
più programmi per ZX61 più 3 cassette più 2 cassette da t 
Kbyte (1 in linguaggio macchina) più listati II tutto a Lit 230000 
anziché 326000 Ivan Morandi - Via Tourneuve. 16 - 11100 
Aosta - Tel 0165/43089 

Vendo, compro, cambio programmi au cassetta per ZX Spec¬ 
trum Mandatemi la vostra lista Risposta assicurata Antonio 
Dilorenzo - Viale degli Oleandri. 7 - 71042 Cerlgnola(FG) - Tel 
0885/28289 

Vendo Spectrum 48 Kbyte con tastiera professionale e pad 
numerico con tasto accensione e spia piu cavetti piu 7 cassette 
Lit 550000 Interfacce seriaie/paralieia più joystick Ut 120000 
Libri e cassette di qualità Francesco Penna - Via Morelli. 43 - 
34170 Gonzia - Tel 0481 /85089 (dopo le 21) 

Vendo ZX Spectrum 48 Kbyte p>ù alimentatore piu cavetti di 
collegamento, manuale in italiano, libro con 77 programmi per 
Spectrum, 54 giochi e vane Utilities a Lit 400000 Telefonare 
ore pasti Fabrizio Amati • Via delle Paranze. 9 - 47041 Bellaria 
(FO) - Tel 0541/45266 

Vendo programmi per ZX Spectrum Jet set • Zaxxon - Jumbly - 
RommeTs revenge - 3D space war - Gola rush e molti altri 
Catalogo completa a richiesta Stefano Nocilli • Via Tuscdana • 
00181 Roma 

Vendo ZX80 nuova ROM uguale a ZX81 alimentatore 12 a 
listati. 7 cassette programmi da 1/16 Kbyte. manuale italiano 
tutto a Lit. 100000 Claudio Capaccio Via Genova. 6 • 18012 
Vallebona (IM) • Tel 0164/265016 

Vendo stupendi programmi per ZX Spectrum 16 Kbyte. 48 
Kbyte Dispongo di oltre 100 programmi su cassetta in L/M tra i 
quali Hamburger. Mmc fhiner. RSSST. Fisica I. Tas-tnng Pre¬ 
go telefonare ore pasti Marco Lanzellotto - Via delle Tirami. 12 

• 00121 Ostia (Roma) • Tel 5693792 



Scambio o vendo a prezzi trattabilissimi oltre 170 programmi 
per ZX Spectrum 16/48 Kbyte Per informazioni scrivere o 
telefonare a Francesco Lato - Via Alessandria. 5/9 • 39100 
Bolza no - Tel 0471/9128 32 

Cambio circa 150 programmi per Spectrum 16/48 Kbyte In¬ 
viate lista o telefonate dalle 20.30 alle 21.30. So volete incre¬ 
mentare la vostra Spectrum-biblioteca, copie da computer non 
da registratore Gianfranco Cordam • Via Garian. 57 • 20146 
Milano - Tel 02/4089907 

Vendo Sinclair ZX Spectrum 48 Kbyte usato solo tre mesi a Ut 
450000 Regalo a chi lo acquista cassette di software, libri, 
riviste e listali ptn Spedi uni pei un valore superiore alle Ut 
200000 Giorgio Stracquadanio - Via Tiulziana. 34 20097 S 
Donato Milanese (MI) • Tel 02/515050 

Se possiedi uno Spectrum sei mio amico, con te potrei scam¬ 
biare diversi programmi, e se proprio non ne hai te II vendo ad 
un prezzo che vana da Lit 3500 a Lit 5000 informati subito a 
questo indirizzo Stefano De Tom - Via Cinta di Sotto. 12 - 
33097 Spilimbergo - Tel 0427/2672_ 

Cambio - compro - vendo ogni genere di programma per ZX 
Spectrum. Oltre 200 programmi Risposta sicura, inviare pro¬ 
pria lista Giulio Guidoni • Via Del Popolo. 54 - 56036 Palaia (PI) 
- Tel 0587/622178 _ 

Eccezionale: vendo per Spectrum a Lit 6000 cassette conte¬ 
nenti 6 vldeogioch! che potrai scegliere richiedendomi la favo¬ 
losa lista con 50 giochi Alessandro Barbieri - Via Casone. 1 • 
55010 Spianate (LU) 

Vendo causa passaggio a sistema superiore ZX Spectrum 48 
Kbyte come nuovo, alimentatore, cavetti e manuale Inoltre 220 
programmi di tutti • generi Tutto per Lrt. 500000 trattabili. Tele¬ 
fonare ore pasti o scrivere a Aldo Castellani - Via della Libertà. 
68 - 57100 Livorno 

Vendo I migliori programmi per ZX Spectrum a 16 Kbyte 0 48 
Kbyte a prezzi bassissimi e m offerta speciale la graphic pen 
Mettetevi subito m contatto (telefonare ore pasti). Riccardo 
Baiducci - Via di Tiglio. 15 S Filippo - 55100 Lucca • Tel. 
0583/950688_ 

Cambio/vendo oltre 600 programmi per ZX Spectrum Dispo¬ 
sto eventualmente a cambiare 20 programmi per le fotocopie di 
testi m inglese riguardanti lo Spectrum. Scrivere o telefonare a: 
Alfredo Trifiletti - Via Fiume. 20/A - 71100 Foggia - 
0881/75385 

Vendo I migliori programmi per ZX Spectrum 16/48 Kbyte ad 
un terzo dei prezzo. Richiedere elenco o telefonare a Ivo Sope- 
gno - Via Colombari. 36 - Devesi - 10070 Ciriè (TO) - Tel 
011/9200618 

Vendo ZX Spectrum 48 Kbyte come nuovo, con imballo origi¬ 
nale e completo di alimentatore, cavetti, registratore. 5 libri e 
200 programmi Tutto questo a sole Lit 600000 trattabili per 
informazioni telefonami Roberto Betta» Via Meucci, 17 - 
20010 Marcano (MI) - Tel 02/9760125 


Texas 


Vendo programmi di ogni tipo (su cassetta) per Ti 99/4A. 
anche m extended BASIC Offro giochi, musica, ingegneria, 
grafici Compro mimmemory e manuale Assembler Scrivere a: 
Sergio Ferraro - Via Napoli, 20 - 82016 Montesarchio(BN) - Tel 
0824/834310 


Cerco urgentemente linguaggio Edltor/Assembler per TI 
99/4A Contatto qualsiasi zona d'Italia Scrivere o telefonare 
dopo le ore 20 a Fabrizio Mazzurana - Via Montono. 86 -37131 
Verona - Tel 045/ 976068 

Vendo per TI 99/4A giochi e utility in TlBASlC e Tlextended 
Per ulteriori informazioni richiedere il listato a: Tiziano Vigna - 
Via Mongmevro. 36 - 10138 Torino - Tel 011/4475140 
Vendo, causa militare, TI 99 più extended BASIC piu registrato¬ 
re a Lit 400000 Regalo 40 programmi su cassetta e più di 60 
listati più 2 manuali e 2 libri Scrivere a' Giancarlo Pellegrino • 
Via Don A Pellegrino, 69 12010 Fontanelle (CN) 

Vendo TI 99/4A piu cavo registratore più alimentatore più 
modulatore TV piu manuale più libro "Imparare il BASIC con il 
TI 99/4A" più cassette con numerosi programmi, tutto m perfet¬ 
to stato a Lit 350000 Alessandro Del Bono Via Calafatimi. 40 - 
57100 Livorno • Tel. 0586/811550 

Possiedo il TI 99/4A. vorrei contattare altri utenti TI 99 per 
creare un club Al club sono Inclusi anche utenti di altri micro- 
/personal computerà Raffaele Pelosi - Via Volfango Venturini, 
18 H • 00044 Frascati (Roma) • Tel 9425318 


Per TI 99/4A compro programmi di giochi in ext-BAStC o 
Assembler che siano veramente eccezionali Inoltre vendo pro¬ 
grammi in TI o ext- BASIC Marco Guidi - Via A Strada. 50 - 
20091 Bresso (MI) - Tei 02/8103079 
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OFFERTISSIMA -EXELCO- 


x 




La divis. EXELCO vi propone 
una vantaggiosissima 
combinazione COMMODORE 

Affrettatevi 

è un'OFFERTA irripetibile !!! 


r 




Descrizione 

Q.tà 

Prezzo 

unitario 

Prezzo 

Totale 

n. 1 COMMODORE C64 

n. 1 Registratore compatibile 

n. 1 Libro "C64 EXPOSED" 

n. 1 Libro "Impariamo il computer" 

n. 1 Cassetta Software "Garden Wars" 


L. 599.000 



Desidero ricevere il materiale indicato nella tabella, a mezzo pacco postale 
contro assegno, al seguente indirizzo: 


SUBITO 

A CASA VOSTRA 


L. 699.500 
L. 82.000 
L. 24.000 
L. 25.000 
L. 20.000 


n. 1 COMMODORE C64 

n. 1 Registratore compatibile 

n. 1 Libro "C64 EXPOSED" 

n. 1 Libro "Impariamo il computer" 

n. 1 Cassetta Software "Garden Wars' 

Totale 


a sole L.599 000 


IVA INCLUSA 


Nome 


Cognome 
Via 
Città 
Data 


C.A.P. 


SPAZIO RISERVATO ALLE AZIENDE - SI RICHIEDE L'EMISSIONE DI FATTURA 

Partita I.V.A. 



. . 


Q 

uj 

I 

o 

o 

f- 

O 



PAGAMENTO: 

A) Anticipato, mediante assegno circolare o vaglia postale pei l'importo totale 
dell'ordinazione. 

Bl Contro assegno, in questo caso, è indispensabile versare l'acconto di Lire 50.000 
mediante assegno circolare o vaglia postale. Il saldo sarà regolato contro assegno. 
AGGIUNGERE: L. 5.000 per contributo fisso. I orezzi sono comprensivi di I.V.A. 


DIVIS. 


EXELCO 


Via G. Verdi, 23/25 

20095 CUSANO MI LANINO Milano 


NON PERDETE QUESTA OCCASIONE ! 




































































































































Libri 


Pierre Lotigie-Laurent 

UN PERSONAL COMPUTER FIRMATO IBM 

Il libro offre una panoramica completa sul 
Personal Computer IBM Comincia col descrivere 
l'hardware, passa poi alle due applicazioni, alla 
programmazione e ai sistemi operativi. 

Illustra le diverse configurazioni che si possono 
realizzare per soddisfare esigenze di utenti diversi, 
e finisce con un breve manuale per l'installazione 
e l'uso. 

Una preziosa prefazione all'Edizione Italiana 
integra ed aggiorna l'edizione originale 
L'immagine che ne esce, grazie allo stile e al 
linguaggio, è quella di un'informatica abbordabile 
e cordiale, pronta a venire in aiuto sul lavoro e a 
istruire e divertire in famiglia. 

152 pagine. 

Codice 404H L. 15.000 


Stanley R. Trost 

PROGRAMMI UTILI PER IBM PC 

Il libro presenta una serie di oltre 65 programmi 
per il Personal Computer IBM, ampiamente 
collaudati e pronti per l'uso. 

Dopo una breve introduzione, che vi metterà in 
grado di usare i programmi proposti, seguono i 
programmi stessi suddivisi per capitoli: finanza e 
bilancio familiare, gestione commerciale, beni 
immobili, analisi di dati, registrazione di dati, 
esercizi di matematica. 

I programmi sono da "usare", e il libro non ha la 
pretesa di insegnarvi la programmazione in 
BASIC, ma proprio l'uso dei programmi vi porterà 
gradualmente, e quasi automaticamente, ad 
apprenderne le tecniche fondamentali: può essere 
un buon punto di partenza per diventare voi stessi 
programmatori. 

E proprio per aiutarvi in questo, nelle Appendici è 
presentata una serie di sottoprogrammi di uso 
generale, usati dai programmi del libro, e vi viene 
spiegato con facili esempi come inserirli nei vostri 
nuovi programmi per risparmiare tempo e fatica. 
180 pagine 

Codice 564 D L. 15.000 

La Biblioteca che fa testo 


firmati JACKSON 



VOGLIATE SPEDIRMI 


n copie 

codice 

Prezza unitario 

Prezzo iotale 













T otaie 



Pagherò contrassegno a postino < prezzo indicato p«u L 2000 par contributo naso 
spasa di spedizione 


Condizioni di pagamanto con aaanziona dal contributo spasa di apadtziona 

□ Allego assegno de'*a Banca Allego fotocopta dei versamento 

su c/c n 11666203 a vor intestato 


Allego fotocopia di versamento 
su vaglia postale a voi intestato 



GRUPPO 

EDITORIALE 

JACKSON 


Attenzione compilare per Intero 
le cedole 

ritagliare (o fotocopiare) e spiedi re 
in busta chiusa a 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosolimi. 12 - 20124 Milano 


n 


Nome 

Cognome 

V*_ 

Cap Città Prov 

Data Firma 


{ 


Spazio riservato atte Aziende Si richiede remissione di fatture 


Penna I V A. 


11 


ORDINE 
MINIMO 
l SO 000 




































































